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ANO 1 - NUMERO 4. 


REVISTA EXCLUSIVA PARA USUARIOS 


para el Spectrum 


Primeras instrucciones 
en Código Máquina 

Contabilidad profesional 

Programas: Cubo de Rubik, 
Archivos en microd rive, etc. 
EXTRA: Programa- calendario 1985 
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J, M PUBLICIDAD 



Ahora 

tu Spectrum 
es un 


Diviértete consiguiendo 
regalos tan estupendos 
como los de la "tele" 


©RTVE 


-immmmb 


¡¡Sígueme!! 







UN JUEGO PARA 
DISFRUTAR CON 
TUS AMIGOS 

Con tu Spectrum (no importa el modelo, 
16 ó 48 K) y la cinta del "Un, Dos, Tres..." 
podrás conseguir diversión sin límites junto 
con los tuyos. 

Por primera vez se te ofrece un 
concurso participativo para microordenador, 
donde pueden competir hasta tres parejas. 

Y con la novedad de que el juego será 
cada vez distinto, pues siempre que 
conectes la cinta a! Spectrum, te ofrecerá 
diferentes alternativas. 


Concursa en casa 
con los protagonistas 
de la "tele". 

Bigote Arrocet te invita en persona a un 
concurso exactamente igual que el 
de la "tele". 

Basta con que pongas la cinta en tu 
cassette y él te irá dando las instrucciones 
de este nuevo y diferente juego. 

Puedes conseguir premios tan sorprendentes 
como los del programa de Chicho y, por 
supuesto: también tiene Chollo. 


1 de cada 3 cassetes 
contiene 

¡PREMIO DIRECTO!: 


Viajes, moto-vespas, sintetizadores, 
microordenadores Spectrum, QL, un montón 
de premios más, y el gran Chollo: 








Información y venta exclusiva en la red de 
Concesionarios Autorizados INVESTRONICA 


¡Busca tu 


PARAtítSFO SOFT. S A 


sión del año. 


hasta 


rRES MILLONES 
DE PESETAS! 

en premios que puedes conseguir participando 
en la gran final. No pierdas más tiempo, 
compra la cinta del “Un, Dos, Tres! 


Patrocinadores 
.del concurso:. 


investronica 


(o> CECOMSA 


revísta 


MOTOVESPA 


BELLTON* 


























Para este número habíamos reservado amplio espacio a las nove¬ 
dades que se suponía íbamos a ver en la feria del SIMO. Dispersados 
por cuatro pabellones, poco nuevo ofrecieron las casas comerciales 
para quienes su público principal quedaba fuera dei recinto ante la 
prohibición de la entrada a menores de 17 años. Una vez más se evi¬ 
denciaba la necesidad de contar con ferias específicas para los orde¬ 
nadores domésticos. 

Como anunciábamos en el número anterior, comenzamos con la 
serie sobre el lenguaje PASCAL, ante las cartas recibidas en este sen¬ 
tido. Esperamos que siga incrementándose la comunicación para ha¬ 
cer de TODOSPECTRUM una revista participativa. 

Y como las fechas mandan, además de Santaclair. en las páginas 
centrales encontrará un «montaje» muy particular de nuestra masco¬ 
ta. Un programa bien estructurado y explicado para que anote sus 
compromisos y obtenga el calendario del próximo año o del que de¬ 
see. 

Finalmente, como podrá ver. hemos incorporado a «nuestra plan¬ 
tilla» una nueva impresora para facilitar la introducción de los pro¬ 
gramas, que utilizaremos íntegramente a partir del próximo número. 

Hasta el próximo año. 


pro- 


4 DE PROFESION: PROGRAMADOR. Joan Sales y Os¬ 
car Domingo detallan el proceso de elaboración de un 
programa comercial. 

6 CONSOLA SPECTRUM. Hágase usted mismo su pro¬ 
pia consola, con amplificador de sonido incluida. 

12 A CODIGO RAPIDO. Código máquina explicado a fon¬ 
do, comparado con las instrucciones BASIC usuales. 

22 CONTABILIDAD. Analizamos en profundidad el 
grama de Word-iMicro. 

30 CALENDARIO. Programa agenda con el que podrá obte¬ 
ner un bonito calendario del próximo ano. 

36 PASCAL. Se mida la serie de este va popular lenguaje. 

42 PROGRAMAS. EL CUBO DE RUBIK en dos dimen¬ 
siones. ARCHIVO DE PUBLICACIONES EN MI- 
CRODRIVE, TENIS, AJEDREZ, FAR-WEST y PA¬ 
REJAS, un simpático test para encontrar su media naran¬ 
ja. 

65 PREGUNTAS Y RESPUESTAS. Preguntas y mejoras a 
programas aparecidos. Grabación de datos del programa 
EASEL y meses en español. 

66 GLSANEZ. Nuestra mascota se topa con el peor de los 
problemas. 


ÜM^épectruii 



Cargado de Spectrums, 
Santaclair no faltó a la cita 
de estas navidades. Santiago 
Morga y Stnacho, dei equipo 
de diseño de Dinamic Soft, 
io hicieron posible trabajando 
con el programa Artist. 

Consola 

para el Spectrum 

Primarais mttruüuont'S 
en Código 

ContnbiÍHÍHd protesiíjníil 

Progrflmas Cubo da Rutak, 


Archivos on mécrodr¡ Wf, & tc. 

EXTRA: Programa Cíttondarm iSSí 
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competí ti vidad y las técnicas em¬ 
pleadas en un juego, generalmente 
son obsoletas para el siguiente. Por 
ejemplo, ahora estoy con un algo¬ 
ritmo para trabajar en tres dimen¬ 
siones con posibilidades de giro. 
Esto se consigue tratando los pun¬ 
tos en coordenadas polares en lu¬ 
gar de cartesianas, es decir, por án¬ 
gulo y distancia a un origen. Como 
el Spectrum trabaja con coordena¬ 
das X, Y, hay que partir de cero y 
empezar a buscar rutinas sin trigo¬ 
nométrica, sin raíces cuadradas, 
sin decimales, debido al código 
máquina». 

«Una limitación a tener en 
cuenta antes de meterte con el jue¬ 
go es la pantalla», proseguía Joan. 


De profesión: 

PROGRAMADOR 


Aunque nunca se haya parado a 
pensarlo, detrás de cada video¬ 
juego hay muchas horas de trabajo, 
y en muchos casos detrás de ellos 
encontrará los nombres de Joan 
Sales y Oscar Domingo, dos pro¬ 
gramadores con «solera» para los 
que el lenguaje máquina no repre¬ 
senta ninguna dificultad. 

«Nos hemos dado cuenta de que 
las máquinas comerciales grandes 
tienden a lo deportivo y el video¬ 
juego siempre es una competición 
contra algo», nos decía Joan. «En¬ 
tonces o vamos a los juegos inteli¬ 
gentes, de lucha contra la máqui¬ 
na, o simular con la máquina unas 
condiciones lo más reales posibles. 
Una vez que se tiene clara la idea, 
hay que informarse sobre el tema, 
prescindiendo del aspecto infor¬ 
mático. Asi en el juego de esquí, 
estudiamos un manual y libros de 
física que nos ayudan a compensar 
las fuerzas que inciden sobre la 
persona que está esquiando. El 
paso inmediato son los algorit¬ 
mos de comportamiento del es¬ 
quiador». 

Una vez estructurado el progra¬ 
ma y resueltos los algoritmos de 
movimiento es cuando se empieza 
a pensar en el Spectrum, como nos 
indicaba Joan. «Hay que estudiar 


las posibilidades del Spectrum 
para llevar a cabo la idea: el color, 
la pantalla... El problema de codi¬ 
ficar el programa es lo de menos. 
Puede contarse con el algoritmo 
necesario, pero puede resultar 
muy lento, incluso en código má¬ 
quina. El movimiento del esquí en 
tres dimensiones, por ejemplo, es 
un cálculo trigonométrico cons¬ 
tante y el código máquina del 
Spectrum no puede hacer estos 
cálculos a una velocidad acepta¬ 
ble». 

Se dice que cuando se han reali¬ 
zado muchos programas la progra¬ 
mación se convierte en una mez¬ 
colanza de rutinas. «En absoluto, 
los programas son siempre diferen¬ 
tes», replicaba Joan, «hay mucha 

r. “ N 

f£5 LA ultima vez 
ooere programo 


CON 8YT£$ j'OAW-lfJM/ 

¡¡¿EMT£mDo?!¡ 



«Es muy grande y está organizada 
para ser tratada fácilmente por la 
ULA. Manejarla desde código má¬ 
quina no es un problema desde el 
punto de vista teórico, pero son 7 K 
que hay que tratar de forma inteli¬ 
gente si no se quiere perder mucha 
velocidad, es decir, hay que hacer 
trucos para mover la pantalla mu¬ 
cho menos de lo que parece. El 
algoritmo no es problema, pero 
cuando el ordenador sabe lo que 
tiene que pintar, el acto de pintarlo 
se lleva hasta el 75 por ciento del 
tiempo. En definitiva es una técni¬ 
ca cinematográfica, para que la 
imagen no vaya a saltos, tiene que 
cambiar la pantalla ocho veces por 
segundo y según qué programa se 
quiera hacer, no siempre se puede 
conseguir. 

Si las limitaciones del Spectrum 
lo permiten, el siguiente paso es el 
reparto del trabajo en bloques: im¬ 
presión en pantallas, movimiento, 
sonidos, etc. Es aquí cuando se em¬ 
pieza a codificar y cuando otro or¬ 
denador entra en escena: El IBM- 
PC. «Pretendemos llenar el Spec¬ 
trum totalmente de código máqui¬ 
na. Si metiésemos el objeto no ha¬ 
bría sitio para el fuente que acos¬ 
tumbra a ser diez veces más largo. 
Para ahorrar memoria, los gráficos 

















están codificados y estos códigos 
vuelven a estar codificados en 
otros códigos más reducidos. Para 
esto tenemos programas estándar 
que nos facilitan mucho el trabajo, 
pero no podríamos llenar el Spec- 
trum del código objeto sin la ayuda 
del PC. Otra ventaja adicional es la 
posibilidad de editar de forma fácil 
y rápida cualquier error, indepen¬ 
dientemente del teclado. Incluso 
en las teclas programables hemos 
colocado las instrucciones assem- 
bler más usuales para ganar tiem¬ 
po en el teclado». 

Una vez que el programa está 
completo, pasa al Spectrum a una 
velocidad de 16.000 baudios. 
«Compramos el PC por la amplia 
documentación técnica que traía, 
gracias a lo cual hicimos el circui¬ 
to, el programa de recepción al 
Spectrum, otro de transmisión al 
PC y un protocolo para que los dos 
se entendiesen». El problema de 
las comunicaciones estaba resuelto 
para Joan. Ahora quedaba lo más 
tedioso. «Una vez cargado en el 



«Oscar Domingo cunctinfrado cit el ctidi^o maquina,» 


Spectrum, hay que probar el juego 
en todas sus posibilidades. El pro¬ 
gramador no puede hacer nunca 
este test, porque inconscientemen¬ 
te no hace las barbaridades que 
puede hacer quien no conoce ei 
juego. A nosotros los errores no 


EL MAGNETOFON RARA TU ORDENADOR 


* Enriada senoidal sensibilidad 15 mV 

* Salida digital 1 Vp p 


P. V. P. 8.900 PTAS. 


* Altavoz incorporado de control de 
volumen 

* Contador üe po&kcjonamierno 

* Interruptor general 

* Moniior de señal 

* Nivel automático be grabación y 
reproducción «SAVÉ» y nLQAD» 

* Parada automática al lio de cinta 

Ahora también 008 A 

Para Commodore. P V P 8.900 pías. 




COM1HJTK1I AUTO DATA KECOHDEH 

¡AHORA TU SPECTRUM TAMBIEN HABLA! 


P* V. P. 
10.800 ptas. 



LCIUlRjRAH juS P E ECiH 

SINTETIZADOS DE VOZ PARA SPECTRUM 1 6 6 40 


■ Modulador o* souicki p ot TV 

* Vütibulá+iü ml.n.iQ S.nmi.í j medíanle aloFonoi (fe- le-ngua mgle-s» 
iFraqmjefHQS Exruñnrngnno a í.íinslrueéiCf'de cualquier palabra 

utiliZanrta simtíoiLis fonéticos 

* f nliMid( n>n para rvumamj'.ar la Sinletiíación Seíju&rífc. ul'l^a 1 
mavuSL.^Ias y (nir'uisc’iáfls * on cíe forma ,m (jnv.ri 1 


la silaba cíe ia paisista 
* C<i”’ni!Hbii | n>" S. n .i > v in • _i-* 1 


EL CURfl 4 >{ uSKE.CH Lt DARA ufrA MUEVA 
DiHE MilClh A SUS JUICOS V PROGRAMAS 

PROGRAMAS f JUEGOS 

e spcciai E.oispohiiLís [CÍUÍRTrIaThI 

li ^slLToTfl 

I. P rfln«-| cimtfl 1 ÉA|iF!i»n|« * M 

SptnivH >«n 4 i pinlii-Ecpa 

Currah Speech Commodore. 


P. V. P. 4,400 ptas. 



nos salen». Aunque reconocía que 
los períodos de pruebas no eran su¬ 
ficientemente exhaustivos. «La 
parte comercial mete prisa. Hay 
independencia, pero somos cons¬ 
cientes de que hay que colocarlo 
en el mercado. Además, el número 
de combinaciones posibles es prác¬ 
ticamente ilimitado y no se puede 
probar todo. Siempre hay algún 
error. Ahora estamos desarrollan¬ 
do una nueva técnica, consistente 
en realizar código máquina que se 
programase en función de situacio¬ 
nes. Normalmente las rutinas cuya 
función es programar a otras ruti¬ 
nas en función de determinadas 
condiciones. Esto complica mucho 
las cosas, aparte del tiempo que se 
lleva hacer todo esto». 

«No nos enteramos de la comer¬ 
cialización, nosotros sólo progra¬ 
mamos», responden ante la pre¬ 
gunta de compensación por el es¬ 
fuerzo realizado. «Hay un buen 
apoyo en material de todo tipo: li¬ 
bros, videos, ordenadores, etc,, 
pero se podía hacer más». 


INTERFACE JOY ST1CK 
SIMPLE 


SPECTRUM 

P.V.P. 

2.800 pías. 



ti 


NOVEDAD!! 


EN INTERFACE JOY STICK 
SPECTRUM 


* 2 Joy Stick 

* Salida 
monitor 

* Compatible 
con SINCLAIR 
y KEMSTON 

('no programadle) 



P, V P 4.800 pías. 


EN LAS BUENAS TIENDAS DE 
INFORMATICA 


PRODUCTOS 

[@* : ECOMSA 

CailBiMt 2-5. 1 t UMrid-i T*4*i JÍ DI 
























CONSOLA 

SPECTRUM 



L A consola permite que el 
Spectrum quede con el te- 

_ciado ligeramente inelina- 

do,lo cual es uno de los pun¬ 
tos esenciales para la como¬ 
didad del programador a la hora de 
utilizar el teclado. 

El interruptor de encendido se 
encuentra situado en un lateral de 
la consola, de forma que queda 
empotrado en el lateral derecho, 
para que no sea demasiado accesi¬ 
ble, y así evitar, en lo posible, que 
una mano demasiado curiosa pro¬ 
duzca un desafortunado reset en el 
ordenador. 

Otra de las grandes ventajas de 
la utilización de una consola, es el 
hecho de poder tener todo integra¬ 
do, obteniendo un equipo más 
compacto y seguro, evitando así el 
típico lío de cables detrás del orde¬ 
nador. 

La impresora se ha dispuesto de 
forma que quede al nivel del tecla¬ 
do, y ligeramente desplazada a la 
derecha del panel de mandos, de 
forma que no entorpezca la mano 
derecha del programador al te¬ 
clear. 


Al quedar los conectores del 
Spectrum perpetuamente conecta¬ 
dos, ya que sólo se utilizan los con¬ 
mutadores e interruptores de la 
consola, los conectores del Spec¬ 
trum no sufren, pudiéndose éstos 
desconectar cuando se quiera libe¬ 
rar el Spectrum de la consola, lo 
cual es inmediato. 

Tras el encendido del ordenador 
con el interruptor empotrado en el 
latera] derecho se enciende un tes¬ 
tigo de alimentación. Este testigo 
se encuentra situado en la esquina 
superior izquierda del ordenador. 
Como piloto se ha utilizado un 
diodo LED. como suele ser ya cos¬ 
tumbre en estos casos. 

En el panel de la impresora te¬ 
nemos una serie de mandos que 
son, de izquierda a derecha: 

1) El indicador del conmuta¬ 
dor de grabación SAVE-LOAD. 

2) El conmutador de grabación 
SAVE-LOAD. Este conmutador 
facilita la tarea de salvar progra¬ 
mas, ya que en la mayoría de los 
cassettes se produce un acople o 
realimentación si están los dos ca¬ 
bles de EAR y de MIC conectados 


Con este artículo presentamos la 
descripción de una consola para tu 
Spectrum que podrá albergar, de 
forma cómoda, la impresora ZX 
PRINTER y un amplificador de 
sonido, haciendo mucho más 
cómoda la tarea de programación, 
y de utilización del ordenador en 
general. 


simultáneamente y con el cassette 
en posición de grabación, lo cual 
obliga a desconectar el cable de 
EAR cada vez. que se va a salvar un 
programa. Bastará pues a partir de 
ahora con poner el conmutador en 
posición de SAVE antes de salvar 
un programa, sin necesidad de em¬ 
pezar a conectar y desconectar ca¬ 
bles. Automáticamente, al poner 
el conmutador en posición de 
SAVE, se encenderá el LED testi¬ 
go de SAVE, situado a la izquierda 
del conmutador. 

3) Este conmutador invierte el 
sentido de amplificación del am¬ 
plificador interno de la consola. Es 
decir, en posición normal, el am¬ 
plificador funciona amplificando 
los sonidos producidos por el 
Spectrum y haciéndolos audibles 
en el altavoz integrado en la conso¬ 
la. Ahora bien, en la otra posición 
el amplificador recibe como señal 
de entrada a amplificar cualquier 
señal introducida en el conector de 
señal de entrada situado en la parte 
trasera de la consola, para entre¬ 
garla una vez amplificada al Spec¬ 
trum por la entrada de EAR. Esto 


- 








es muy útil cuando se quiere hacer 
análisis de sonidos con el ordena¬ 
dor. Podremos, por ejemplo, intro¬ 
ducir la señal de un micrófono a la 
consola, y una vez amplificada, el 
Spectrum. mediante un programa 
adecuado, visualizará la frecuencia 
de la señal introducida. 

Tenemos, en conclusión, estos 
dos casos: 


a) 

b» 


SpflCtrum 




Amplificador '"JCO —ALlovot 


Sefol «t^rior 


Amplificado! Spectriun 


4) El siguiente conmutador co¬ 
necta o desconecta el altavoz, ya 
que es posible que nos interese te¬ 
ner el amplificador funcionando, 
pero sin que suene el altavoz. 

5) Este botón es el control de 
volumen del amplificador, que se 
efectúa mediante un potencióme¬ 
tro de 10 kilohomios logarítmico y 
con interruptor. 

En la parte posterior de la con¬ 
sola se encuentra situado el inte¬ 
rruptor del ventilador. No es de¬ 
masiado importante incluir el ven¬ 
tilador en la consola ya que al que¬ 
dar el Spectrum completamente 
levantado, el ordenador no se ca¬ 
lienta demasiado, y sólo llega a 



templarse un poco la carcasa infe¬ 
rior. 

Construcción de la consola 

Empezaremos por cortar enma¬ 
dera de contrachapado de 3 milí¬ 
metros, las tablas que constituyen 
la base y los costados laterales y 
frontales. Los ensamblamos con 
cola blanca y pegamos listones de 
refuerzo en las esquinas. Para esto 
nos fijaremos en la figura 1, en 
donde se encuentra desglosada la 


construcción mecánica de la con¬ 
sola. 

Cortamos las piezas que consti¬ 
tuyen el soporte para la impresora 
(ver fig. 2). y una vez construido lo 
pegamos al panel de mando, para 
después pegar éste a la consola. 
Una vez acabado esto, pegaremos 
los listones que servirán de sopor¬ 
tes al ordenador en la consola y las 
últimas piezas de madera, para fi¬ 
nalizar la construcción mecánica 
de la consola. Una vez que esté 
todo perfectamente seco, se lijará 











































































































para quitar las imperfecciones y 
asperezas de la madera. Por últi¬ 
mo, se pintará con dos o tres capas 
de pintura para lacar, Por ejemplo, 
Titanlak. Una vez ya acabado todo 
el montaje mecánico de la consola 
y efectuados los taladros para la 
posterior fijación de los conmuta¬ 
dores, leds y el potenciómetro, 
construiremos el amplificador {ver 
montaje del amplificador). 

Pegaremos las bandas de goma 
sobre las cuales se apoya el Spec- 
trum, que van sobre los listones de 
sujeción. 

Ahora comenzaremos a montar 
todos Sos componentes de la con¬ 
sola. Alojaremos el amplificador 
bajo la caja que soporta a la impre¬ 
sora, Montamos el potenciómetro, 
los tres conmutadores, y los dos 
diodos leds, con los cables que van 
a éstos ya soldados, pues una vez 
fijados a la consola resultaría muy 
difícil cablearlos. Fijamos el alta¬ 
voz, y atornillamos la rejilla que 
tapará la membrana. Por fin empe¬ 
zaremos a cablear los distintos 
componentes de la consola, según 
el esquema del cableado de la figu¬ 
ra 3. 

Las resistencias que van conec¬ 
tadas en serie con los diodos LED 
son de 680 ohmios y de una poten¬ 
cia de 1/4 de watio. Si se quiere 
que luzcan más, se puede bajar el 


valor de la resistencia, por'ejemplo 
a 470 ohmios. La resistencia que 
va conectada al interruptor del al¬ 
tavoz es de 8 ohmios y de 1 watio, 
y su función es de no dejar sin car¬ 
ga el amplificador en caso de des¬ 
conectar el altavoz, que puede ser 
cualquiera de 4 u 8 ohmios de im- 
pedancia y de 1 watio como míni¬ 
mo. 

Prestar especial atención en sol¬ 
dar todo correctamente, aislando 
perfectamente todos los cables que 
estén a 220 voltios. Soldar los dio¬ 
dos LED, teniendo en cuenta su 
polaridad, ya que una inversión de 
ésta lo destruiría. Para ello fijarse 
en la parte plana que tiene en su 
base. El terminal más cercano a 
ésta corresponde al cátodo del 
LED, que es el que va conectado 
en serie con la resistencia limita¬ 
dora al negativo de la alimenta¬ 
ción. Los LEDs utilizados en la 
consola son de color rojo, aunque 
naturalmente se pueden utilizar 
verdes o naranjas, La conexión en¬ 
tre los conectores macho y hembra 
de antena se efectuará con cable 
coaxial del tipo empleado para las 
conexiones de antena de los televi¬ 
sores. Igualmente, las conexiones 
de los conectores EAR y MIC se 
efectuarán con cable coaxial del 
tipo empleado para baja frecuen¬ 
cia. 


Para cualquier detalle del mon¬ 
taje, fijarse bien en las fotografías 
de ia consola, lo cual nos puede 
ayudar a salir de alguna duda que 
surja durante el montaje. Para fi¬ 
nalizar, indicamos que todo el ma¬ 
terial es perfectamente asequible 
en los comercio del ramo, y que el 
coste de la consola es de alrededor 
de las 2.000 ptas. en componentes 
electrónicos y material eléctrico. A 
esto le habremos de sumar el pre¬ 
cio de las maderas de contrachapa¬ 
do, pegamento y pintura. 

Amplificador de sonido 
para la consola 

E! amplificador utilizado en la 
consola para el Spectrum está ba¬ 
sado en el circuito integrado TDA 
2002 que proporciona una poten¬ 
cia de salida de cerca de 2 watios 
con un altavoz de 8 ohmios. Se 
pueden obtener potencias mayores 
utilizando un altavoz de menor 
impedancia, por ejemplo de 4 oh¬ 
mios, aunque con 8 ohmios resulta 
satisfactorio el volumen obtenido. 

El circuito integrado viene inte¬ 
riormente protegido contra corto¬ 
circuitos en su salida, sobretempe¬ 
raturas, apertura del circuito res¬ 
pecto a masa e inversión de polari¬ 
dad, lo cual le hace muy apto para 
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FiguraS, Detalle del 
montaje del radiador y 
patillaje del circuito 
integrado I DA 2002. 




Figura 4, Placa de circuito impreso del 
amplificador visto por el lado de las pistas de 
cobre. 

































































































Lista de componentes 

Para la consola 

2 Diodos LED rojos 
2 Porta LED 

2 Resistencias 6B0 ohmios 1/4 watio 
1 Resistencia, 8 ohmios, 1 watio 

3 Conmutadores miniatura de dos canales 
1 Interruptor 

1 Altavoz de 8 ohmios 
1 Portafusibles 
8 Conectores y clavijas 


Para el amplificador 


R1 

220 

1/4 w 

Cl 

10 /iF 

3V 

Electrolítico 

R2 

2,2 

1/4 w 

C2 

470 nF 

3V 

Electrolítico 

R3 

1 

1/4 w 

C3 

100 



R4 

47 

1/4 w 

C4 

1000 ¿uF 

lOv 

Electrolítico 

IC1 

= TDA 2002 

C5 

100 ,uF 




Potenciómetro 10 k logcon int. C6 100 /jF 


cacharrear con él, sin demasiado 
miedo a destruirlo. 

Montaje del amplificador 

Para montar este circuito utili¬ 
zaremos la placa de circuito im¬ 
preso de la figura 4. Una vez fabri¬ 
cada, y efectuados todos los aguje¬ 
ros para introducir los componen¬ 
tes, empezaremos montando las 
resistencias. 

Seguidamente, soldaremos los 
condensadores, teniendo en cuenta 
que Cl, C2 y C4 son electrolíticos 
y así pues han de ser soldados en su 
posición correcta. C3, C5 y C6 ca¬ 
recen de polaridad, así resulta in¬ 


diferente soldarlos en cualquiera 
de las dos posiciones. Finalizare¬ 
mos el montaje soldando el circui¬ 
to integrado, que no puede ser in¬ 
troducido en la placa más que en 
una posición, no dando lugar a du¬ 
das su alojamiento en la placa. 

En el esquema del circuito se en¬ 
cuentra un condensador electrolí¬ 
tico de 100 fiF colocado en parale¬ 
lo con C3, entre masa y aiimenta- 
eión (patilla 5). Este condensador 
no es necesario, y de hecho no se 
ha incluido en el circuito impreso, 
ya que su misión es de filtrar la ali¬ 
mentación que proviene de la 
fuente de alimentación del Spec- 
trum, que ya posee un condensa- 



Alberto Piedra con su montaje. 

dor electrolítico para filtrar la ten¬ 
sión de alimentación. 

En caso de no encontrarse los 
condensadores electrolíticos al 
voltaje indicado, también se pue¬ 
den utilizar, naturalmente, con¬ 
densadores de la misma capacidad 
pero a un voltaje mayor, por ejem¬ 
plo 25 voltios, pero en ningún caso 
un voltaje inferior al indicado. 

Por último, es conveniente ator¬ 
nillar algún tipo de disipador de 
calor al circuito integrado, para lo 
cual nos puede valer alguna pla- 
quita de aluminio rectangular de 
dimensiones 2x6 centímetros (ver 
figura 5). 

Alberto Piedra 




























































ZX Spectrum + 

(64 K.) 

Para los que exigen+ 








Decir que el lenguaje BASIC es lento, no es decir nada nuevo. Olvidarse de él por este 
motivo y pasar al código máquina es una solución que dista mucho de ser la más 
eficiente, independientemente del gusto particular de cada uno por este lenguaje. Lo que 
le proponemos en este artículo es un camino intermedio, potenciar al BASIC con ayuda 
del código máquina allí donde es más lento. La comparación entre los dos lenguajes, 
esperamos le sea de utilidad y logre así incrementar la “rapidez” 
de sus programas. 











































































Para empezar fijemos el proble¬ 
ma: Al ordenador le salen telara¬ 
ñas mientras esperas a que te dé 
unos resultados. Lo primero que 
hay que hacer es identificar qué 
pane del programa es la que lo en¬ 
lentece. Para ello distribuiremos a 
lo largo del programa diversos 
puntos de prueba, esto es, mensa¬ 
jes a pantalla, y cronometraremos 
el tiempo que transcurre entre 
cada mensaje. Una vez localizado 
el cuello de botella, procederemos 
a sustituirlo por una subrutina en 
lenguaje máquina. 

Escribir programas en lenguaje 
máquina tiene mucho que ver con 
colocar unos números en unas po¬ 
siciones de memoria. Para poder 
hacer esto antes es necesario reser¬ 
var dichas posiciones de memoria, 
ya que en principio, toda la memo¬ 
ria está dedicada al BASIC y a los 
UDG {gráficos definidos por el 
usuario). En el Spectrum de 48 
Kbytes existen 65536 posiciones 
(del 0 al 65535) que pueden conte¬ 
ner números comprendidos entre 
el 0 y el 255, ambos inclusive. 

La reserva de memoria se realiza 
con la instrucción CLEAR, que 
fija un tope al área disponible para 
el programa BASIC. Podremos si¬ 
tuar nuestras rutinas, por tanto, 
por encima de este tope. Situare¬ 
mos en la primera línea de nuestro 
programa la instrucción CLEAR 
62000 {al final del articulo hay una 
nota dedicada a los usuarios del 
Spectrum de 16 Kbytes). Con esto 



habremos logrado fijar el RAM- 
TOP en la posición 62000 y dejan¬ 
do un sitio seguro para nuestro 
programa en código máquina por 
encima de esta posición, aunque 
realicemos un NEW u otro 
CLEAR. La instrucción CLEAR 
62000 nos protegerá 3367 posicio¬ 
nes de memoria, o bytes (65535 
menos 62000). 

Su programa tomará la forma de 
una serie de números decimales 


“pokeados” en posiciones situadas 
por encima del RAMTOP. 

Estos números son utilizados 
por el ordenador para indicarle al 
procesador las instrucciones que 
debe realizar. Ei intérprete BASIC 
del Spectrum lo que hace es tradu¬ 
cir las líneas BASIC en una serie de 
estas instrucciones, de manera que 
el procesador las pueda entender y 
ejecutar. Los programas en lengua¬ 
je máquina son más rápidos que el 
BASIC porque no necesitan ninguna 
traducción, son instrucciones eje¬ 
cutables directamente por el pro¬ 
cesador. 

El programa 2 utiliza 22 núme¬ 
ros decimales, situados en las posi¬ 
ciones 62050 al 62071, para gene¬ 
rar una serie de tonos musicales 
cuando se pulsa una tecla. Uno de 
los programas es más corto gracias 
a la utilización de las instrucciones 
DATA, pero los dos realizan la 
misma función. Una vez que se 
ejecute el programa BASIC, el pro¬ 
grama en código máquina quedará 
residente en la memoria a partir de 
la posición 62050 y ya podrá ser 
borrado al programa en BASIC 
Para poder ejecutar el código má¬ 
quina es necesario indicar al orde¬ 
nador a partir de qué posición 
debe empezar a ejecutar. Para ello 
se utiliza la instrucción LET M - 
USR 62050. 

Si esta instrucción está situada 
dentro de un programa BASIC, des¬ 
pués de ejecutarse la rutina en có¬ 
digo máquina se seguirá ejecutan¬ 


brutinas distintas en las posiciones 
62050 al 62071 y 62075 al 6220, y 
acceder a ellas con las instruccio¬ 
nes LET M = USR 62050 y LET M 
- USR 62075, respectivamente. 
Fíjese que dejamos libres entre 
ellas algunas posiciones que se des¬ 
perdician, pero que en algún mo¬ 
mento pueden llegar a sernos útiles 
si hacemos alguna modificación en 
las subrutinas. 

Además de las posiciones de me¬ 
moria el procesador puede acceder 
a los llamados registros. Los regis¬ 
tros son como las posiciones, pero 
el procesador las suele utilizar 
para funciones especiales porque 
son más cómodos y rápidos de uti¬ 
lizar. Los registros se nombran por 
letras A, B, C, D, E, H y L. El más 
importante de ellos es el A, llama¬ 
do también acumulador, ya que es 
el que contiene la información que 
está manejando el procesador en 
cada momento. 

Una instrucción típica del en¬ 
samblador puede ser LD 
A,(62001), que significa cargar 
(LD, load en inglés) el acumulador 
con el contenido de la posición 
62001. Recuerde que el ensambla¬ 
dor es una forma fáci I de represen¬ 
tar el lenguaje máquina. Utiliza¬ 
mos LD para representar el núme¬ 
ro decimal 58 que le indica al pro¬ 
cesador que debe cargar algo en al¬ 
gún registro. 

Si posee algún ensamblador para 
Spectrum lo único que tiene que 
saber que LD significa “load” que 



do el BASIC. En nuestro caso (pro¬ 
grama 1) utilizamos algunas líneas 
para realizar funciones de repre¬ 
sentación e introducción de datos. 
Una vez que ya esté ejecutando el 
programa musical utilice la “B” 
para acabar. 

Se pueden tener diversos progra¬ 
mas en código máquina a la vez en 
memoria con la única, y evidente, 
condición de que no se solapen. 
Por ejemplo, se pueden tener su¬ 


en castellano quiere decir “carga”. 
Si por el contrario no tiene ensam¬ 
blador, entonces tendrá que pro¬ 
gramar directamente con los nú¬ 
meros. De todas formas, y aunque 
no tenga ensamblador, le reco¬ 
mendamos que programe utilizan¬ 
do los mnemónicos (abreviaturas) 
típicas del ensamblador y luego 
traduzca, a mano, a código máqui¬ 
na. 

“Pokeando” los números 58, 49 












y 242 en dos posiciones de memo¬ 
ria consecutivas, situadas por enci¬ 
ma del RAMTOP, tendrá un pe¬ 
queño programa en lenguaje má¬ 
quina que cargará en el acumula¬ 
dor el contenido de la posición 
62001. Deberemos añadir también 
un cuarto número, 201, que se re¬ 
presenta por el mnemónico RET 
(RETum - volver); para indicar al 
procesador que hay que volver al 
BASIC. 

Si se fija, se puede extrañar que 
58 vaya seguido de dos paráme¬ 
tros; 49 y 242, mientras que LD 
sólo necesita uno, una dirección. 
La razón de ello es que para indi¬ 
car una dirección es necesario un 
número más grande que 255, que 
es la mayor cantidad que se puede 
representar mediante un byte (con 
ocho bits sólo se pueden represen¬ 
tar números comprendidos entre 0 
y 2 8 -1). Por lo tanto hacen falta 
dos bytes para representar una di¬ 
rección. Para calcular qué dos nú¬ 
meros representan una determina¬ 
da dirección, puede utilizarse el 
programa número 3. 

En el código máquina pueden 
encontrarse conceptos equivalen¬ 
tes a los ya encontrados en el BA¬ 
SIC. Por ejemplo: JP (JumP = salto) 
es equivalente al GOTO del BASIC 
Una instrucción JP ocupa tres by¬ 
tes de memoria. El primero es un 
195 (decimal), y los siguientes los 
dos números que representan a la 
dirección a donde se va a efectuar 
el salto. Por el contrario, el código 
máquina carece de todas las pro¬ 
tecciones que se pueden encontrar 
en el BASIC. Por ejemplo, en BA¬ 
SIC si se ejecuta una instrucción del 
tipo 10 GOTO 10 el ordenador en¬ 
tra en un bucle sin fin, pero que 
puede ser interrumpido pulsando 
las teclas CAPS y SPACE. En có¬ 
digo máquina jamás se puede inte¬ 
rrumpir un proceso, a no ser que el 
propio programa tenga explícita 
una salida, examinando el teclado, 
por ejemplo, Una buena idea en 
un programa máquina es compro¬ 
bar el teclado, y si ha sido pulsado, 
volver al BASIC. Esto nos evitará 
dejar la máquina colgada en un 
bucle infinito, y sin salida posible. 

Además, cuando se trabaja en 
código máquina, no existe com¬ 
probación sintáctica, por tanto, to- 


PROGRAMA 1 


1 CLEAR 62000 

2 FQR i=62050 TO 62060 

5 READ x; POKE i ,x: NEXT i 
10 DATA 205,142„2,40,2,30,254, 
6,0,75,201 
'12 LET m=USR 62050 

14 PRINT AT 0,0;" " 

15 GQ TQ 12 


LD A, (dir.) 

C arga el acumulador con el con¬ 

62050 

58 

58 


ten ido de la posición 62004 

6205 1 

Y 

52 



62052 

Y 

242 

CPL 

Comprueba si el contenido del 

62053 

254 

254 


acumuladores 1; de ser asi... 

62054 

X 

1 

JPZ, (dir.) 

... salta a la posición 62073 

62055 

202 

202 



62056 

Y 

121 



62057 

Y 

242 

CP2 

Comprueba si el contenido del 

62058 

254 

254 


acumuladores 2: de ser asi... 

62059 

X 

2 

JPZ, (dir.) 

... salta a la posición 62087 

62060 

202 

202 



62061 

Y 

135 



62062 

Y 

242 

CP3 

Comprueba si el contenido del 

62063 

254 

254 


acumulador es 3: de ser asi.., 

62064 

X 

3 

JPZ, (dir.) 

salla a la posición 62101 

62065 

202 

202 



62066 

Y 

149 



62067 

Y 

242 

CP4 

Comprueba si el contenido del 

62068 

254 

254 


acumulador es 4: de ser así.. 

62069 

X 

4 

JPZ, (dir.) 

salta a la posición 620! 5 

62070 

202 

202 



62071 

Y 

163 



62072 

Y 

242 

LD A,(dir.) 

Carga el acumulador con el con- 

62073 

58 

58 


Len ido de la posición 6200 i 

62074 

Y 

49 



62075 

Y 

242 

DEC A 

Decrementa el acumulador una 

62076 

61 

61 


unidad 




LD, (dir.) A 

Carga 3a posición 7005 con el 

62077 

50 

50 


contenido del acumulador 

62078 

Y 

53 



62079 

Y 

242 

LD A, (dir.) 

Carga el acumulador con el con¬ 

62080 

58 

58 


tenido de la posición 62002 

62081 

Y 

58 



62082 

Y 

242 

LD, (dir.) A 

Carga la posición 62006 con el 

62083 

50 

50 


contenido del acumulador 

62084 

Y 

54 



;62085 

Y 

242 

RET 

Vuelta al BASIC 

62086 

201 

201 

LD A, (dir.) 

Carga el acumulador con el con¬ 

¡62087 

58 

58 


tenido de la posición 62001 

62088 

Y 

49 



62089 

Y 

242 

i_. 


















PROGRAMA 2. METODO 1 

1 CLEAR 62000 

2 FQR 1=62050 TO 62071 

3 READ X: POKE I,Xi NEXT 

4 DATA 205,142,2,123,254 

5 DATA 0,202,119,242,103 

6 DATA 111,22,0,30,0 

7 DATA 205,181,3,195,98 

8 DATA 242,201 

12 LET M=USR 62050 


PROGRAMA 2. METODO 2 

1 CLEAR 62000Í REM 

fija 

RAMTO 

r 

2 

POKE 

62050,205 

14 

POKE 

62062,0 

3 

POKE 

62051,142 

15 

POKE 

62063,30 

4 

POKE 

62052,2 

16 

POKE 

62064,0 

5 

POKE 

62053,123 

17 

PQKE 

62065,205 

6 

POKE 

62054,254 

18 

POKE 

62066,181 

7 

POKE 

62055 f 0 

19 

POKE 

62067,3 

Q 

POKE 

62056,202 

20 

POKE 

62068,195 

9 

POKE 

62057 ? 119 

21 

POKE 

62069,98 

10 

POKE 

62058,242 

22 

POKE 

62070,242 

U 

POKE 

62059,103 

23 

POKE 

62071,201 

12 

POKE 

62060,111 

too 

LET 1 

tf^USR 62050 

13 

POKE 

62061,22 





INC A 

Incrementa el acumulador en i 
una unidad 

62090 

60 

60 

LD, (dir.) A 

Carga la posición 62005 con el 

62091 

50 

50 


contenido del acumulador 

62092 

Y 

53 



6209.1 

Y 

242 

LD A, (dir.) 

Carga el acumulador con el con- 

62094 

58 

58 


tenido de la posición 62002 

62095 

Y 

50 


62096 

Y 

242 

LD. (dir.) A 

Carga la posición 62006 con el 

62097 

50 

50 


contenido del acumulador 

62098 

Y 

54 



62099 

Y 

242 

RET 

Vuelta al BASIC 

62100 

201 

201 

LD A (dir.) 

Carga el acumulador con el con* 

62101 

58 

58 


tenido de la posición 62002 

62102 

Y 

50 


62103 

Y 

242 

DEC A 

Decrementa d acumulador en 
una unidad 

62104 

61 

61 

LD. (dir.) A 

Carga la posición 62006 con d 

62105 

50 

50 


contenido dd acumulador 

62106 

Y 

54 



62107 

Y 

242 

LD A.(dir.) 

Carga el acumulador con el con¬ 

62108 ‘ 

58 

58 


tenido Je la posición 62001 

62109 

Y 

49 


62110 

Y 

242 

LD, (dir.) 

Carga la posición 62005 con d 

62111 

50 

50 


contenido del acumulador 

621 12 

Y 

53 



62113 

Y 

242 

RET 

Vuelta al BASIC 

621 14 

201 

201 

LD A, (dir.) 

Carga el acumulador con el con¬ 

62115 

58 

58 

tenido de la posición 62002 

62116 

Y 

50 



62117 

Y 

242 

INCA 

Incrementa el contenido del acu¬ 
mulador en una unidad 

62118 

60 

60 

LD, (dir.) A 

Carga la posición 62006 con el 

62119 

50 

5050 


contenido det acumulador 

62120 

Y 

54 



62121 

Y 

242 

LD A. (dir,) 

Carga el acumulador con el con* 

62122 

58 

58 

tenido de la posición 62001 

62123 

Y 

49 


62124 

Y 

242 

LD, (dir.) A 

Carga la posición 62005 con el 

62125 

50 

50 


contenido dd acumulador 

62126 

Y 

53 



62127 

Y 

242 

RET 

Vuelta al BASIC 

62128 

201 

201 


dos los errores son tragados y eje¬ 
cutados por la máquina. Lo más 
probable es que, si se comete un 
error, la máquina se “cuelgue”, y 
que la única forma de salir sea de¬ 
senchufando y volviendo a enchu¬ 
far. 

Algunas veces parecerá que la 
máquina produce mensajes de 
error. Estos falsos mensajes de 
error se producen cuando antes de 
volver al BASIC se han alterado po¬ 
siciones por debajo del RAMTOP, 
dañando así el programa BASIC. 

Todo lo anteriormente citado 
hace a los programas en código 
máquina muy difíciles de depurar. 
Un ensamblador puede resultar 
muy útil (los mnemónicos son más 
fáciles de leer) y además algunos 
ensambladores proporcionan he¬ 
rramientas de depuración. Sin un 
ensamblador la realización de un 
programa mínimamente complejo 
puede resultar penosa. 

Cuando diseñe un programa en 
código máquina hágalo de forma 
que sea fácil de corregir y depurar. 
Es también buena idea diseñar un 
número de programas pequeños, 
probados por separado, y luego 
unirlos, que diseñar un único pro¬ 
grama grande, más difícil de com¬ 
probar. Por ejemplo, si se quiere 
hacer un programa para dibujar fi¬ 
guras coloreadas en la pantalla, re¬ 
sultará más fácil dividir el progra¬ 
ma en dos subprogramas, de la si¬ 
guiente manera: Un programa 
para dibujar figuras y otro progra¬ 
ma para colorear figuras. Siempre 
serán más fáciles de corregir por 
separado. 

Para escribir un programa en có- 





















PROGRAM A 3 

10 INPUT "Escribe le dirección 
"SDIR 

20 CLS t PRINT "La dirección » 
(DIR 

30 PRINT "se representa por lo 
s números" 

40 PRINT DIR-INT ÍDIR/256)»23ó 
I" Y "jINT ( DIR/236) 

50 PAUSE Os 60 TQ 10 


PROGRAMA 5 j CLEAR 62 000 

2 FDR 1*62050 TQ 62128 

3 READ Xi PDKE I,X: NEXT 1 

4 DATA 50,52,242,254.1,202.12 


digo máquina conviene seguir un 
procedimiento forma! fijo. Lo pri¬ 
mero que hace falta es una lista de 
los códigos decimales de las ins¬ 
trucciones (apéndice A del manual 
del Spectrum). También es necesa¬ 
rio saber qué funciones realiza 
cada instrucción. No tenemos sitio 
aquí para explicar casi 700 ins¬ 
trucciones, que son todas las que 
tiene el procesador Z80. así que 
nos limitaremos a explicar una se¬ 
lección de las más utilizadas, y que 
nos bastarán para realizar un ejem¬ 
plo de cómo transformar un pro¬ 
grama BASIC en lenguaje máqui¬ 
na. 

Este que sigue, es el programa a 
traducir: 

65 GOSL'B 90+H: REM H PUE¬ 
DE VALER 1,2,3 0 4 
“ ”... (Resto del programa) 

91 LET YF=Y1-1:LET XF=XI : 
RETURN 

92 LET YF=YI+1:LET XF=Xr : 
RETURN 

93 LET XF=XI-1:LET YF=YI : 
RETURN 

94 LET XF=XI+I:LET YF-YI : 
RETURN 

Estas líneas pueden pertenecer a 
cualquier juego. Los valores de H 
significan un desplazamiento ha¬ 
cia arriba, abajo, derecha o iz¬ 
quierda. XI e YI son las coordena¬ 
das iniciales (antes del desplaza¬ 
miento), y XF e YF son las finales. 
Damos por supuesto que. por pro¬ 
grama. H sólo puede tomar los va¬ 
lores arriba indicados. 

Supongamos que el programa 
fue escrito, desarrollado y depura¬ 
do en BASIC y que cuando se ejecu¬ 
tó se comprobó con horror que re¬ 
sultaba muy lento. La solución 
consiste en ir sustituyendo seg¬ 
mentos del programa BASIC por ru¬ 
tinas en código máquina hasta 
conseguir la velocidad adecuada. 
No es necesario traducir todo el 
programa. 

El resultado es un programa for¬ 
mado en gran parte por una estruc¬ 
tura BASIC que va llamando a pe¬ 
queñas rutinas en código máquina, 
encargadas de realizar los trabajos 
que hubieran resultado muy lentos 
en BASIC. 

Antes de describir las etapas que 
nos van a llevar a convertir en tná- 


1,242,254,2 

5 DATA 202,135,242,254,3,202, 
149,242,254,4 

6 DATA 202,163,242,50,49,242, 

61.50.53.242 

7 DATA 50,50,242,50.54,242,20 

1.58.49.242 

B DATA 60,50,53,242,58,50,242 
,50,54,242 

9 DATA 201,58,50,242,61,50,54 
,242,50,49 

10 DATA 242,50,53,242,201,58,5 
0,242,60,50 

11 DATA 54,242,58,49,242,50,53 
,242,201 

12 REM ftt CODIGO MAQUINA ** 

13 REM ** EN ** 

14 REM ** MEMORIA K« 

15 REM 

16 REM —LINEAS DE PRUEBA— 

17 REM 

39 FQR H=1 TO 4 

40 PDKE 62004,H 

50 POKE 62001,4í REM Var. VI 
60 POKE 62002.4: REM Var.XI 
70 LET M=USR 62050 

00 PRINT "-- 

90 PRINT “Direc.62004 (antes H 
) - “ jjPEEK 62004 

100. PRINT "Direc. 62005 (antes 
YF)= "¡PEEK 62005 
110 PRINT "Direc. 62006 (antes 
XF)= ";PEEK 62006 
120 tIBT H 


Direc. 

62004 

(entes 

H>= 1 

Direc. 

62005 

(antes 

YF) =3 

Direc. 

62006 

< antes 

XF>=4 

Direc. 

62004 

(antes 

H>= 2 

Direc. 

62003 

(antes 

YF> =5 

Direc. 

62006 

(antes 

XF) =4 

Direc. 

62004 

(antes 

H) = 3 

Direc. 

62005 

(antes 

YF) =4 

Direc. 

62006 

(antes 

XF) =3 

Direc. 

62004 

(antes 

H>= 4 

Direc. 

62005 

(antes 

YF) =4 

Direc. 

62006 

(antes 

XF) =5 


















PROGRAMA 6 

1 CLEAR 62000 

2 FOR i-62050 TO 62060 

5 READ x! POKE i,xi NEXT i 
10 DATA 205,142,2,40,2.30,254, 
6,0,75,201 

12 LET m=U5R 62050 

14 PRINT AT O,O;m;" " 

15 GO Tü 12 


Código 

máquina 


Decimal 


Explicación 


LDA(dir) 58 
N 
N 


JPdir 195 

N 
N 


RET 201 


CALLdiry 205 
su compa- N 
ñero N 


Carga el acumulador con el contenido de 
una posición de memoria, como la 62001 

Ejemplo: *»»» 

62053 J I 

* * 

« • 

* » 

Los dos N definen la posición 62001. Deben 
tomar los valores 49 y 242 en este ejemplo. 
Ver programa 3 para más aclaraciones 


Salto a la posición definida por las dos N. 


Ejemplo: 


Gajoso rren 

620* *1 I 104 I 
6205? rg?g 1 
6£tW3 
CÍO54 

62055 

62056 
62C57 


i- JP 62055 
: 


La posición, en este caso 62056, viene defi¬ 
nida por los números 104 y 242 


Vuelta al Basic 


620wt 
6SQ5It 


lOÚLET 62050 '- 

IO ? R£M 

* 


fe 2 Q 69 [ ] , 

63P7Q CTáÓT] R ET 


Instrucciones en código máquina 


En este caso RET no actúa por separado, 
sino como compañero del CALL, por tanto 
no producirá la vuelta al BASIC. CALL es 
equivalente a la instrucción BASIC GOSUB 

Ejemplo: 



Cmü 62056 


6 2053 [ 

62054 [ 

62055 I-J 

62046 I- 1 * 

63057 r 

63058 I 1 
62059 I £01 1 - 


Vuelta al punto desde el que se efectuó e! 
CALL, no al BASIC. Saltamos desde la posi¬ 
ción 62052, y volvemos a la 62063, así que 
no se vuelve exactamente a la posición de 
llamada, sino a la siguiente 


NOTA: Los recuadros en blanco contienen otras instrucciones. 


REGLAS: 

a) Si encuentra un CALL dir, entonces el RET es su compañe¬ 
ro. 

b) Si no hay CALL, entonces el retorno se realiza al BASIC. 

Este es un ejemplo de la utilización de CALL y su compañero 

RET. 


quina el programa de arriba, susti¬ 
tuyamos las variables por posicio¬ 
nes de memoria. A partir de ahora 
sustituiremos Y1 por la posición 
62001. Para ver su valor utilizare¬ 
mos la función PEEK y para cam¬ 
biarlo POKE. Por ejemplo, si en 
una linea de programa tenemos la 
instrucción PRINT YI, la sustitui¬ 
remos por PRINT PEEK 62001. 
Si encontramos LET A=YI lo sus¬ 
tituiremos por LET A - PEEK 
62001. Si lo que encontramos es 
LET YI = 4, entonces lo cambiare¬ 
mos por POKE 62001,4. 

Podemos sustituir YI por una 
dirección porque sabemos que to¬ 
mará valores entre 0 y 255, ya que 
es el valor de una coordenada de 
pantalla. Haremos lo mismo con 
las variables H, XI, YF y XF y las 
posiciones 62004, 62002, 62005 y 
62006, respectivamente. Aunque 
todavía estemos en BASIC (PEEK y 
POKE pertenecen al BASIC), ya he¬ 
mos empezado la transformación. 
Este cambio nos permite compar¬ 
tir valores entre los dos lenguajes. 

La figura 4 indica los pasos se¬ 
guidos para transformar nuestro 
programa. Las dos primeras co¬ 
lumnas contienen las instruccio¬ 
nes en ensamblador y algunos co¬ 
mentarios; la tercera indica el nú¬ 
mero de las posiciones de memo¬ 
ria; la cuarta, el código operativo 
de la instrucción, así como ios pa¬ 
rámetros requeridos por cada ins¬ 
trucción; en la quinta, están los va¬ 
lores definitivos que toman las po¬ 
siciones de memoria. Todos los va¬ 
lores están dados en decimal. 

En el programa 5 vemos el pro¬ 
grama BASIC utilizado para intro¬ 
ducir en memoria el código má¬ 
quina y para probarlo. También 
hay unas copias de las pantallas re¬ 
sultantes de la ejecución. Una vez 
que el programa haya pasado to-' 
dos los controles puede añadirse al 
programa principal, simplemente 
incluyendo unas líneas que “po- 
keen” los números en las posicio¬ 
nes adecuadas por encima del 
RAMTOP. Una vez hecho esto, 
pueden borrarse las líneas BASIC 
65, 91, 92, 93 y 94 y sustituirlas 
por una línea 64 LET M = USR 
62050. 

Recuerde que ahora las antiguas 
variables no sirven para nada, así 
























Código 

máquina 


Decimal 


Explicación 


LD(dir) A 50 
N 
N 


Instruccio¬ 
nes simila¬ 
res a la an¬ 
terior 

LDB, n 6 

LDC. n N 

14 

LDC. n N 

22 

LDD. n N 

30 

LDE. n N 

38 

LDH.n N 

46 

LDL.n N 

LD A,N 62 

n 


DEC A 61 


INCA 60 


Guarda el contenido del acumulador en la 
posición definida por las dos N. 


Ejemplo: 


«053 I 50 n 

«es* i so i [Lü{eaa<lEjA 

«D55 I | J 

6M56 I I 

SÍOS7 I I 


He aquí un programa en código máquina 
completo que transfiere el contenido de la 
posición 62001 al acumulador, y de aquí a la 
posición 62002. Después vuelve al BASIC. 


Listado 

10 CLEAR 62000: REM fija ram top 
20 FOR i=62050 TO 62056 
30 READ x: POKE i.x: NEXT i 
40 DATA 58,49,242.50,50,242,20,1 
50 LET m=USR 62050 
60 STOP 


C 


É 2 Círi | fr-e ' 

6205' I 
62052 I ¿42 I 
6 E 0 S 3 I 
62054 I I 
E2C55 

&2QS6 [''' Bt} 1 | 


LD 4(&aooij 


> LD(B 2003 )A 


49 y 242 definen e! 62001 

50 y 242 definen el 62002 


Antes de ejecutar el programa en código má¬ 
quina. __ 

62001 I SI 1 

62002 I 79 1 

Después de ejecutar el programa. 

62001 [ 81 .1 
62002 f HTI 


Carga el acumulador con el número “N”. 
“N” debe estar comprendido entre 0 y 255, 

Ejemplo: 62050 I 62~1 1 I n A x 

62051 I 3J / 

Decrementa un contenido del acumulador 
en una unidad. 

NOTA: 0 menos 1 produce 255. 

Incrementa el contenido del acumulador en 
una unidad. 

NOTA: 255 más 1 produce 0. 


que hay que eliminarlas por com¬ 
pleto. En caso contrario podrían 
darnos problemas. Para cerciorar¬ 
nos de que las hemos eliminado, 
después de ejecutar el programa 
ejecutaremos la instrucción 
PR1NT YI, por ejemplo. Si el or¬ 
denador da el mensaje Variable 
noi found sabremos que nuestro 
programa no utiliza para nada la 
variable YI. 

Ahora ya tenemos tres progra¬ 
mas. El programa BASIC, el progra¬ 
ma BASIC que "pokea” el programa 
en código máquina y el programa 
en código máquina en si. Guarde 
una copia del programa “pokea- 
dor” con fines de documentación. 
Salve el programa en código má¬ 
quina utilizando una instrucción 
SAVE “nombre” CODE m.n. 
Donde “m" es la dirección de co¬ 
mienzo de la rutina (62050 en 
nuestro caso) y “n” la longitud del 
programa (78). Es decir: SAVE 
“nombre” CODE 62050,78. Para 
volver a cargar la rutina máquina 
escriba LOAD “ ”CODE. 

Como puede ver en el programa 
4, traducir algunas instrucciones 
BASIC es relativamente sencillo y 
no necesita tener un conocimiento 
exacto del conjunto completo de 
instrucciones del Z80. Aunque 
pueda parecer en principio trivial, 
es una buena forma de empezar a 
adentrarse en los misterios del có¬ 
digo máquina. Comience tradu¬ 
ciendo los condicionales y los bu¬ 
cles que son las instrucciones que, 
normalmente, enlentecen más un 
programa. Cuando tenga alguna 
soltura puede empezar a encargar¬ 
se de segmentos de programa más 
extensos o complicados, como 
pueden ser la entrada y la salida. 
Una línea que imprima algo es 
mucho más fácil de programar en 
BASIC que en código máquina, pero 
es también mucho más lenta de 
ejecutar. 

Por último, una nota aclaratoria 
para los usuarios del Spectrum 16 
Kbytes: existen 32768 posiciones 
de memoria, así que escriba 
CLEAR 30000 en vez de 62000. 
Utilice las posiciones 30001 al 
30049 para los datos, y sitúe el 
programa en código máquina a 
partir de la posición 30050. 

























Spectrum puede con todos. 


¿Quién nos gana en 
gama? Estamos por 
asegurar que ninguno. 

Na olvides que tenemos un 
Spectrum para cada 
exigencia: dos capacidades 
diferentes (16K y 48K) y 
tres modelos con dos tipos 
de teclado (doméstico y 
profesional). 


¿Quién nos gana en 
programas? Spectrum 

cuenta con más de 5.000 
títulos publicados a nivel 
internacional,cien de ellos 
están traducidos al 
castellano. 

Naturalmente estos crecen 
casi de forma constante. 
Una bueno muestro es el 
voluminoso catálogo de 
software que puedes 
solicitar a tu distribuidor de 
confianza. 


¿Quién nos gana en 
periféricos? Ya son más de 

50 los periféricas creados 
especialmente para el 
Spectrum, pero no creas 
que eso termina ahí. Es 
muy raro el día que no 
aparece en el mercado una 
novedad. Así tu Spectrum 
guardará para tí el mismo 
interés del primer día. 


¿Quién nos supera en 
número? Otro factor a tener 
en cuenta: te diremos que 
ya son más de tres 
millones los 

microordenadores Sinclair 
vendidos en todo e! mundo 
(y más de 100.000 
Spectrum vendidos en 
España) ¿no te parece esto 
una buena razón para 
confiar en tu Spectrum?. 

Decídete; este año tener un 
Spectrum es todo un regalo. 



SINCLAIR RESEARCH LIMITED hace constar que no está en condiciones de garantizar el origen y calidad de 
aquellos productos que no hayan sido comercializados en España a través de su distribuidor exclusivo INVESTRONICA S A. 

































Código 

máquina 

ADD A,n 


Decimal 


198 

n 


SUBn 214 
n 

ADDA.B 128 


Explicación 


Suma al acumulador el núme¬ 
ro decimal “N", comprendido 
entre 0 y 255. 

Ejemplo: 

Si A=ó antes, entonces des¬ 
pués A=30 

Resta del acumulador el nú¬ 
mero decimal “N”, compren¬ 
dido entre 0 y 255. 

Ejemplo: 6205? ¡-Ayi ) st)B 15 

Suma el contenido del registro 
B al A (acumulador), dejando 
el resultado en el A. 

Ejemplo: *cxd * i=zm 

s i— 9 —i a nrn 


Instrucciones simi¬ 
lares a la anterior 
ADD A,C 129 
ADD A,D 130 
ADD A,E 131 
ADDA.H 132 
ADD A,L 133 


LD B,A 71 


CPn 254 

seguido n 

de 


JPZ(dÍr) 202 
N 
N 

62050 1 5F1 ' 

62®1 I Wi ■ 

E3Q53 L 24E..1 
S 30 Í 3 1 254 = ’ 
6 £D*j -5 I 3 - • 
63055 ! 202 ¡ . 
6ZD56 I 1 I 
E3D57 l~g3TI -j-. 


* » 

■53309 I 1 

63ZICJ I I 


Carga en el registro B el con¬ 
tenido del A. 

Para conocer más instruccio¬ 
nes similares a ésta, consultar 
la página 18^ del manual del 
Spectrum. Por ejemplo, al fi¬ 
nal de la página se puede leer: 
125 70 Id a,l bit 7,1 LD A,L 
(o Id a, 1) tienen el código ope¬ 
rativo 125. 7D es el número 
equivalente en hexadecimal. 
Este par de instrucciones sig¬ 
nifican comparar el contenido 
del acumulador con el núme¬ 
ro “n”, y si son iguales saltar a 
“dir”. 

“dir” está definido por las dos 
“N”. “n” es un número entre 
0 y 255. Ejemplo; 

He aquí un programa que sal¬ 
ta a la posición 62209 si en la 
posición 62001 hay un 3. 

LD A (62001) 

Cpn 

seguido de J P Z, 62209 
Saltar si el contenido del acu¬ 
mulador es un 3. 


Código 

máquina 


Decimal 


Explicación 


Varias 

juntas 


205 Se mira el teclado, quedando 

142 el registro C con los siguientes 

2 valores: 

— Si no se ha pulsado ningu¬ 
na tecla, C contiene 255. 
40 — Si se ha pulsado alguna te- 

2 cía entonces queda el valor 

30 especificado en la tabla si¬ 

guiente 


Tecla: 

A 

B 

C 

D 

E 

Valor: 

38 

0 

15 

22 

21 

Tecla: 

F 

G 

H 

I 

J 

Valor: 

14 

6 

1 

18 

9 

Tecla: 

K 

L 


N 

O 

Valor: 

17 

25 

16 

8 

26 

Tecla: 

P 

Q 

R 

S 

T 

Valor: 

34 

37 

13 

30 

5 

Tecla: 

U 

V 

W 

X 

Y 

Valor: 

10 

7 

29 

23 

2 

Tecla: 

z 

1 

2 

3 

4 

Valor: 

31 

36 

28 

20 

12 

Tecla: 

5 

6 

7 

8 

9 

Valor: 

4 

3 

11 

19 

27 

Tecla: 

0 

CAPS 

SHIFT 

Valor: 

35 

39 

■ 24 


— Si se pulsa más de una te¬ 
cla a la vez, C contendrá el 
valor 254, salvo que una 
de las teclas sea SHIFT en 
cuyo caso quedará el valor 
correspondiente a la otra 
tecla. Por ejemplo, 31 de 
haberse pulsado la Z. 


Ejemplo: 


GZOW- I 205 1 ’ 

62051 riTTl 


62053 I 40 J 
63D54 1 ~g~¡ 

630*% I ao I 

63056 CMS 

63055 161 
£3057 r 0 ] 

6gQ6s CZ£q 


Leer el teclado, y situar un va¬ 
lor en el registro C. 
Finalmente, el programa 6 es 
un programa BASIC que accede 
al teclado. Cuando esté ejecu¬ 
tando el programa pulse cual¬ 
quier tecla, y el valor del re¬ 
gistro C aparecerá en pantalla. 


1 CLEAR 62000 

2 FOR ¡=62050 TO 62060 

5 READ x: POKE i,x: 
NEXTi 

10 DATA 250.142,2,40,2,30 

,254,6,0,75,201 

12 LET m=USR 62050 

14 PRINT AT 0,0;m; “ ” 

15 GO TO 12 




















VENDO: . 

I ORDENADOR SINCLAIR \J L 

POR 98.700 pías 

i UNIDAD DE DISCO SINCLAIR 

POR 56.800 ptas. 

* ZX SPECTRUM 48K . 

GRAN OPORTUNIDAD ^ 

CONSULTE PARA MAYOR ' 

INFORMACION A: 

F.D.C. Avda ITALIA, 60-62. Te». 
SALAMANCA (923) 22 89 07 



Ordenadores personales Hard y Soft. 


* Cursos de Basic. 

Oficinas- RENOVACION EN MARCHA, 5.A. 

c/. Espronceds, 34 - 2 a mt - MADRll>3 
Teléfono (91) 411 24 76 
Tienda REM SHQP 1 
tí Gaaileo. 1 - MADRID-15 
Teléfono (91) 445 28 DG 


b HÜLTISYSTEM, 6. A- 

BOUTIQUE INFORMATICA 
* * Ordenadores Personales. 

* Micro-ordenadores de gestión. 
Todas las novedades en: 
Programas. - Periféricos ■ libros 
i nacionales y de importación) 

Para: Spectrum - Dragón - Base 64 
Spectravídeo - O ríe - Commodore, etc, 
C/ San Vicente, 53 ALICANTE, Tel {965) 21 55 66 
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FACTURACION SPECTRUM 


Un programa que le pee mil e realizan 


Facturas 

Pedidos 

Ofertas 

AJbaranys 

Control de Stocks 

Listas de Precios 

30 Ficheros diferentes 


En un süJo programa de fácil 
maneto con inicfodrive con 30- 
ficheros de clientes, proveedo 
res, artículos, etc. Ptas. 15.000 

Contabilidad oficial: 12 000 pías 
Equipo de gestión: Spectrum, 
impresora tamaño papel grande, 
interface microdrive. interface 
i. papel programa facturación, 
contabilidad: 195.00D ptas. 


ALSl, S. A. Antonio López. 154, 
Tel. 91/475 43 39, 23026 MADRID 



Copiará tus programas de: 


1) CASSETTE A MICHÜDHIVE 
2 \ MICRODRIVE A MICRODRIVE 
3} CASSETTE A CASSETTE 
4) MIC RODRIVE A CASSETTE 

En Basic. C/M. o mixtos, protegidos o ño, con o sin 
cabecera, hásla 48 , 4 K de long. y de "una sota ve/’ 

TRANS-EXPRESS - 1.6QQ ptas, + gastos envío 

cimpurmnla 

Peí ayo. 12 - OflOOt BARCELONA 
Tino. 301 17 00 ■ Ext. 20 


SUSCRIBASE A 

ladespectrun 

(12 NUMEROS) 


TARIFA DE PRECIOS DE SUSCRIPCION 



CORREO 

ORDINARIO 

CORREO 

CERTIFICADO 

CORREO 

AEREO 

CORREO 

AEREO-CERTIF. 


PTAS. 

$ 

PTAS 

5 

PTAS. 

S 

PTAS 

$ 

ESPAÑA .. 

3.000 

21 

3.273 

23 

3.055 

22 

3.333 

24 

EUROPA. MARRUECOS, TUNEZ, 









TURQUIA ARGELIA Y CHIPRE , 

3.456 

25 

4.272 

31 

3.600 

26 

4.418 

31 

COSTA RICA, CUBA, CHILE, PA¬ 









RAGUAY Y REP DOMINICANA. 

3.396 

24 

4.212 

30 

4.164 

30 

4.980 

36 

GIBRALTAB Y PORTUGAL. 

FILIPINAS ... 

RESTO DEL MUNDO. 

3.264 

23 

4.080 

29 

3.149 

22 

3,965 

28 

3.264 

23 

3.540 

25 

3.775 , 

27 

4.050 

29 

3.456 

25 

4.272 

31 

4.224 

30 

5.040 

36 




Recorte y envie este cupón a: 


Mospectrun 


EOISÁ. Lo peí de Hoyos,i4i -28002 -MADRID 


El importe lo abonaré: POR CHEQUE □ CONTRA REEMBOLSO □ 

CON TARJETA DE CREDITO □ American Express □ Visa o Interbank □ 


Numero de mi Tarjeta- 


Fecha de caducidad. 


NOMBRE _ 

DIRECCION ____ _ __ ___,_ 

CIUDAD________ D.P._ PROVINCIA 
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MAYORES PRESTACIONES 
EN MICRODRIVE 

Aun desconocidos por la mayoría, los programas de contabilidad para el Spectrum van 
creciendo tanto en cantidad como en calidad. Una de las aplicaciones clásicas por las que 
entraba un ordenador en las empresas, le permite ahora al Spectrum competir ya sea en 
el terreno personal o profesional. World-Micro lo ha hecho posible. 


U no de los mayores problc- número de datos elevado surge e! radas técnicas de programación 
mas de todo programa de problema de su manipulación para que pueden dar verdaderos que- 
contahilidad reside en la 1¡- acceder a los datos desde memo- braderos de cabeza cuando dejan 
milación del número de rias externas (léase microdrives) de de funcionar, 
asientos o apuntes, y en el la forma más rápida y eficiente po- Pensando en todos estos proble- 
número de cuentas a utilizaren los sible. A esto ha de sumarse el re- mas elegimos el programa de con¬ 
distintos grupos y subgrupos, Para quisito de la ordenación por fechas tabilidad World Micro por ser uno 
lograr resultados aceptables ha de para obtener la información actúa- de los que ofrecen un mayor nú- 
poderse trabajar con el mayor nú- lizada en todo momento y resolver mero de apuntes y cuentas. Espe- 
mero posible en ambos casos, pero los típicos problemas de la factura ramos que el análisis detallado de 
muy especialmente por lo que se que aparece «dos meses después», las posibilidades de este programa 
refiere a los apuntes contables, co- Los famosos contra-asientos pasan le proporcione mayor información 
nocido por el diario. Al tener un al baúl del olvido, gracias a elabo- de la que puede esperar de su pro- 














grama de contabilidad y elija acor¬ 
de a sus necesidades. 

Si se decide por este programa, 
puede elegir entre utilizar uno o 
dos microdrives. Esta segunda op¬ 
ción es más cómoda, pero más cara 
ya que necesitará de las dos unida¬ 
des. Si estaba pensando en utilizar 
un cassette, mejor piénselo dos ve¬ 
ces. Peso si estaba pensando en 
comprarlo y hacer copias, mejor 
olvídelo. El programa necesita una 
placa de protección que viene con 
el cartucho y que ha sido diseñada 
especialmente como sistema «anti- 
píratas». Esta placa se conecta en 
el port de expansión. Una vez que 
ya dispone del ordenador, interfa¬ 
ce 1 , unidad(es) de microdrive, 
programa e interface ya puede em¬ 
pezar a trabajar. Necesitará, ade¬ 
más, una copia impresa de su tra¬ 
bajo. es decir una impresora y aquí 
siempre tendrá problemas inde¬ 
pendientemente del programa que 
elija. Este programa está prepara¬ 
do para la impresora Newprint Ad- 
mate DP80 conectada al interface 

1. Para trabajar con otras impreso¬ 
ras cerciórese primero de que fun¬ 
cionen y pague después. 

Como decíamos, para trabajar 
con el programa son necesarios dos 
cartuchos de microdrive. En uno 
se encuentran todos los programas 
a los que se accede según se vayan 
necesitando para mantener la 
RAM lo menos ocupada en cuanto 
a programas se refiere, y en el otro 
están los archivos de datos. Lógica¬ 
mente, con dos microdrives puede 
trabajar más rápidamente. Y como 
la velocidad es un factor muy im¬ 
portante, trabaja generalmente en 
memoria, motivo por el que los 
programas han de ser cortos. La 
capacidad de los archivos es de 256 
cuentas que pueden desarrollarse 
en dos niveles, y 1000 apuntes. 
Para lograr una rapidez aceptable, 
imposible de conseguir si se graba¬ 
sen los datos cada vez que se finali¬ 
za la introducción de un apunte, se 
van guardando los datos en memo¬ 
ria (RAM) y se graban en bloque 
cuando se indica el fin de trabajo o 
cuando se superan los 500 apun¬ 
tes. (Esto es debido a que los 1000 
apuntes se guardan en dos bloques 
de 500 cada uno, no pudiéndose 
disponer de los 1000 simultánea¬ 


mente por problemas de memo¬ 
ria). Aquí tenemos una solución al 
problema de los tiempos de acceso 
en microdrive, pero que nos gene¬ 
rará problemas mayores si la esta¬ 
bilidad de la corriente no es buena 
o si por azar se produce alguna in¬ 
terferencia. Quedarse «colgado» 
puede significar perder todo el tra¬ 
bajo de un día. Solución: no espe¬ 
rar al fina! del dia para la graba¬ 
ción. Se puede indicar fin de traba¬ 
jo y reanudar posteriormente la in¬ 
troducción de datos. 

Conocida la estructura básica 
del programa, pasemos a algo más 
operativo. Introduciendo el cartu¬ 


cho de programas, habiendo co¬ 
nectado previamente la placa de 
protección, se accede al programa 
directamente pulsando RUN y 
ENTER. De esta forma aparecerá 
el menú de opciones: 

1. Gestión del plan contable. 

2. Gestión del fichero de apun¬ 
tes. 

3. Balances y extractos. 

4. Actualización. 

5. Gestión del cartucho. 

6. Fin de sesión. 

Para empezar a trabajar hay que 
preparar el cartucho. De esto se 
encarga la opción cinco, gestión 


Una protección 
soft impide [a 
piratería de! 
programa grabado 

en microdrive. 
























del cartucho, y de algunas opera¬ 
ciones más: formatea y crea los ar¬ 
chivos, copia de seguridad y cierre 
del ejercicio. El primer paso es, 
pues, formatear y crear los archi¬ 
vos. El siguiente paso, igualmente 
obligatorio, es crear el plan de 
cuentas. Para introducir los apun¬ 
tes hay que referenciarlos a las 
cuentas ya existentes. 

La introducción de datos (cuen¬ 
tas y apuntes) se realiza mediante 
el procedimiento de máscaras. Las 
teclas del cursor se emplean para 
el movimiento horizontal dentro 
del campo y el vertical para pasar 
al campo anterior o posterior se¬ 
gún la tecla que se presione. Pul¬ 
sando EDIT se reproduce el cam¬ 
po con el contenido del último 
dato introducido para este campo. 
Con TRUE VIDEO se limpia el 
campo en que se encuentra el cur¬ 
sor. Con DELETE se elimina el 
carácter en la posición donde se 
encuentra el cursor. Esta manipu¬ 
lación de los datos es común para 
todos los campos y una vez que se 


domina resulta muy práctico para 
acceder rápidamente a los datos 
que se desean y producir, en su 
caso, los cambios que sean necesa¬ 
rios. 

Además, una pequeña rutina 
permite aprovechar la informa¬ 
ción ya escrita en el campo; así. 
por ejemplo, si se tiene la cantidad 
20.000, para introducir 35.000 
basta con pulsar 35 y ENTER, ya 
que la información de los nuevos 
campos se escribe sobre el dato an¬ 
terior. 


El plan de cuentas 

Al margen de la introducción de 
los datos de cada cuenta, se ofrece 


“A mayores prestaciones... 
menor número de asientos y 
cuentas.” 


una información útil para el con¬ 
trol: número de orden de la cuenta, 
cuenta anterior, actual y posterior. 
Una linea final indica si se está in¬ 
sertando una cuenta adicional o 
cambios en una cuenta ya existen¬ 
te. También va informando de las 


distintas posibilidades de actua¬ 
ción en cada campo (ñ en campos 
alfanuméricos, signos negativos en 
campos numéricos, etc.). Las 
cuentas quedan automáticamente 
ordenadas siguiendo el plan conta¬ 
ble (10, 100000,20,200000, etc.). 

Es fácil la corrección, ya que al 
querer introducir una cuenta, si 
ésta existe aparecen sus datos en 
los respectivos campos para pasar 
a su corrección. Pero curiosamente 
no existe la opción de anulación de 
las cuentas. Una última caracterís¬ 
tica a destacar es la posibilidad de 
visualizar, con este mismo proce¬ 
dimiento, las distintas cuentas, no 
produciéndose la grabación mien¬ 
tras no se introduzcan o modifi¬ 
quen algunas cuentas. 


Cuentas. 256 

Dígitos por cuenta. 6 

Caracteres por título de 

cuenta. 25 

Dígitos en saldo inicial, 
acumulado debe y haber... 8 

Dígitos para el presupuesto 8 


Gestión fichero de apuntes 

La entrada de datos se hace, 
como decíamos, por el procedi¬ 
miento de máscaras. Primero se in¬ 
dica la fecha de trabajo. Después 
vienen los datos de los apuntes: 
cuenta, concepto, importe, debe- 
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Entrada de los datos 
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Listado ile apuntes 
a una fecha. La opción 
por días, no incluye 
!a última columna* 
y permite su 
ordenación por 
fechas. 
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/haber y fecha. Aunque la fecha 
parezca una redundancia no lo es. 
El campo de la segunda fecha 
siempre contiene la introducida en 
el primero, pudiéndose cambiar 
para asientos correspondientes a 
otro día. Es normal realizar varios 
apuntes con un solo día, incluso 
cuando corresponden a días distin¬ 
tos. por lo que este pequeño truco 
es interesante. 

Al margen de estos datos, apare¬ 
ce en pantalla más información re¬ 
ferente al número de apunte, los 
totales de DEBE y HABER «por 
sesión» y la diferencia entre estos 
conceptos. A ojos de contable, este 
«por sesión» resultaría bastante 
sospechoso. La explicación está en 
que el programa no coge asientos 
sino apuntes, es decir, las anota¬ 
ciones sucesivas que se introducen 
desde el «comienzo de la sesión». 
Y por tanto no comprueba si el 
asiento está cuadrado o no (no sabe 
cuándo se acaba el asiento). Los 
datos de DEBE y HABER infor¬ 
man así del acumulado desde el 
inicio de las operaciones, informa¬ 
ción de dudosa utilidad. Con el 
dato sobre la diferencia se puede 
comprobar visualmente si ha habi¬ 
do algún error en la entrada de da¬ 
tos. 


Apuntes.. 1000 

Cuentas. 3,4, 5,6 dígitos 

Concepto. 21 cts. 

Importe .. 8 dígitos 


Actualización 

Este^es uno de los capítulos más 
importantes a tener en cuenta en 
todo programa de contabilidad, 
consistente en actualizar el plan de 


cuentas con los datos de los asien¬ 
tos. Básicamente hay dos métodos: 
hacerlo directamente cada vez que 
se introduce un asiento o realizar 
este proceso en bloque como op¬ 
ción independiente. Esta segunda 



Extracto tk i cuenta 
por pantalla. 



Diario. Apuntes 
por pantalla* 





































opción sude ser la más empleada 
ya que no requiere la presencia del 
usuario, a excepción deJ momento 
inicial cuando se selecciona la op¬ 
ción de actualización. La actuali- 
zación directa por asiento lleva un 
tiempo que resultaría excesivo 
para el microdrive y para la pa¬ 
ciencia del usuario que había de 
estar «pegado» al ordenador todo 
el tiempo. 

El programa utiliza esta segunda 
opción, tal y como hemos podido 
deducir del funcionamiento del 
programa, pues el manual de ins¬ 
trucciones sólo comenta la entrada 
de datos. 

Al actualizar el plan de cuentas, 
en la pantalla van apareciendo los 
apuntes objeto de actualización. 


Tenga cuidado con la actualiza¬ 
ción. Normalmente salvo progra¬ 
mas muy sofisticados sólo la podrá 
realizar una vez, es decir, que des¬ 
pués de actualizar el plan de cuen¬ 
tas no podrá incorporar nuevos 


“En precios hay uniformidad 
(aproximadamente 8.000 pts.). 
La prestaciones son radical¬ 
mente distintas." 


apuntes. Nosotros lo probamos, y 
nos quedamos en el intento: ¡el te¬ 
clado se bloqueó! 

Balances y extractos 

Realizada la actualización, el si¬ 
guiente paso es la obtención de ba¬ 
lances y extractos. La opción tres 
nos da un nuevo submenú: 

— Plan de cuentas. 


■ — Balance de sumas y saldos. 

— Estado del presupuesto. 

— Diarios. 

— Extractos de cuentas. 

Sea cual fuese la opción elegida, 
todas ellas tienen dos característi¬ 
cas en común: se puede obtener los 
datos o varias cuentas o varios 
apuntes según los intervalos que se 
den y, en segundo lugar, se puede 
elegir la visual izaeión por pantalla 
o por impresora. Esta segunda po¬ 
sibilidad resulta muy interesante 
para consultas rápidas y esporádi¬ 
cas. 

Al estar realizado el programa 
en BASIC en su mayor parte es en 
la impresión donde se detectan los 
mayores tiempos de espera. No es 
una cuestión de mayor rapidez de 
imp r esión, Cada vez que hay que 
sacar el nombre de una cuenta se 
ha de recorrer la tabla de las 256 
hasta que se localiza (mediante ios 
bucles FOR-NEXT del BASIC). 

Decíamos al inicio de este ar¬ 
tículo que la mayor bondad de este 
programa era la capacidad de sus 
archivos, Pero también es cierto 
que ello conlleva el no poder dis- 


UN CONTABLE 
MUY PARTICULAR 


José María Oyarzábal lleva ac¬ 
tualmente la contabilidad de trein¬ 
ta y cuatro clientes, gracias a sus 
tres ordenadores Spectrum a los 
que ha conectado distintas unida¬ 
des de microdrive. Ahora confía en 
su Spectrum y en su programa de 
contabilidad, pero hace dos meses 
la situación no parecía tan clara: 
«Pedí presupuesto a varias casas. 
El precio de los equipos era de un 
millón a lo que había que sumar 
100.000 pesetas del programa y el 
10 por ciento de mantenimiento. 
Esto nos llevó a pensar en el Spec¬ 
trum y a informarnos de los pro¬ 
gramas de contabilidad existentes 
para este ordenador. Vimos mu¬ 
chos y finalmente nos decidimos 
por el World-Micro por su capaci¬ 


dad. Hay otros más completos con 
opciones de regularización y reor¬ 
denación por fechas, pero nos de¬ 
cidimos por éste porque permite 
trabajar con 256 cuentas y 1000 
apuntes, requisito indispensable 
para el volumen de datos que ma¬ 
nejamos». 

Después de cuatro meses de tra¬ 
bajo intenso con el programa, José 
María sabe mucho de los proble¬ 
mas de implementación de todo 
programa nuevo, «Hasta hace una 
semana hemos estado subsanando 
errores». A mayor complejidad, 
mayores habrán de ser los periodos 
de prueba, que en este caso parece 
que fue llevada en gran paite por el 
cliente. «A los quinientos apuntes 
se bloqueaba. Tampoco se habían 


previsto lisiados de más de 50 
cuentas y no se producía el salto de 
página... Eran pequeños proble¬ 
mas, pero ocasionaban una impor¬ 
tante demora de tiempo, porque 
había que desplazarse a la tienda 
para que lo arreglasen». 

Conscientes de los problemas 
que se dan en todo tipo de progra¬ 
ma, y de que el factor tiempo juga¬ 
ba en este caso un papel i mportan¬ 
te, aumentó su plantilla para in¬ 
corporar una programadora que 
resolviese los problemas que se pu¬ 
diesen dar. «Me sale rentable por¬ 
que amplía los programas de 
acuerdo a nuestras necesidades es¬ 
pecíficas. Ahora hacemos nuestros 
propios programas». 

«Lo que no habíamos previsto 
era la luz. ¡Nos volvemos locos!» 
Todavía con un brillo de asombro 
e incredulidad en sus ojos, José 
María nos contaba que un aumen¬ 
to en la tensión le fundió el interfa- 
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poner de la opción de regulariza- 
don y el no contar con ios apuntes 
ordenados por fechas. Esta segun¬ 
da desventaja puede subsanarse 
obteniendo el diario «por fechas», 
pero ello en lentece la impresión y 
requiere la presencia del usuario 
para indicar las fechasen las que se 
desea obtenerlo. 

Como todo programa, todavía es 
susceptible de mejoras. Pero tam¬ 
bién como todo programa, existen 
otros complementarios con distin¬ 
tas prestaciones que habrá de eva¬ 
luar seriamente antes de hacer su 
elección. Y una última recomen¬ 
dación: no se fíe demasiado de pe¬ 
queñas demostraciones con un nú¬ 
mero reducido de cuentas y apun¬ 
tes. Cuando se llenan los archivos 
es fácil encontrar problemas que 
los programadores no pudieron ver 
por no trabajar a fondo con el pro¬ 
grama y es igualmente fácil que los 
tiempos de acceso a la información 
e impresión se modifiquen sustan¬ 
cial mente y después parezca que 
sus programas no son tan rápidos 
como el de la tienda. 
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Balance de sumas 
y saldas cías ico. 
Se complementa 
coa el estado 
presupuestario. 




ce I. la fuente de alimentación y el 
Speclrum. En otra ocasión la ines¬ 
tabilidad del fluido eléctrico había 
supuesto la pérdida de un día de 
trabajo, aproximadamente 8000 
apuntes perdidos. «Compramos 
una fuente de alimentación espe¬ 
cial para estabilizar la corriente y 
no hemos vuelto a tener proble¬ 
mas». 

«No nos preocupa que no regu¬ 
larice o que no haga el cierre de 
cuentas. Esto lo hacemos nosotros 
aparte. La mayor limitación que le 
encontramos es que no reordena 
por fechas, al menos directamente, 
lo que subsanamos tirando listados 
de diarios por fechas, pero esto es 
lento, se necesitan dos días por 
cliente. Tenemos otros programas 
que realizan esta ordenación, pero 
el problema es siempre el mismo: 
el número de apuntes se reduce en 
un 75 por ciento. A nosotros esto 
no nos interesa.» 





















Comencemos por planteamos 
un problema modesto, Queremos 
obtener el día de la semana en que 
cae el 1 de enero de cualquier año 
teniendo para ello en cuenta que 
en 1984 el 1 de enero fue domingo. 
Como se podrá suponer, si logra¬ 
mos resolver esto habremos dado 
un gran paso en nuestro intento de 
obtener el calendario del año re¬ 
querido. Ante la magnitud de la 
empresa, queremos ahora encon¬ 
trar en qué cae el 1 de enero de 
1985. Como 1984 es bisiesto, tiene 


366 días (febrero tiene 29), necesi¬ 
tamos encontrar el número de se¬ 
manas que van de 1 a 1 de enero. 
Para ello calculamos. 

INT (366/7) = 52 
Como 52 x 7 = 364 nos damos 
cuenta que nos faltan dos días para 
completar el año y que en conse¬ 
cuencia ei 1 de enero de 1985 cae 
en martes. Dudo mucho que se 
haya perdido en la argumentación 
anterior, pero si no es así léala otra 
vez, pues éste es el truco esencial 
del programa. 


Volvamos ahora con nuevos 
ánimos a calcular el día 1 de cual¬ 
quier año tomando como punto de 
partida el l de enero de 1984. Para 
hacer esto, debemos aún vencer la 
pequeña dificultad que significa 
que no todos los años tengan el 
mismo número de días. Para supe¬ 
rarla actuemos de la siguiente for¬ 
ma: cada 4 años a partir del 84 nos 
vamos a encontrar con otro bisies¬ 
to, es decir, tomaremos como pe- — 
ríodo natural de tiempo un ínter- m 
valo de 1461 días (4 x 365 + 1) con 













lo que dado un año cualquiera 
para hallar el número de días que 
van del 1 de enero de 1984 al 1 de 
enero de este año que llamaremos 
X calculamos: 

INT((X~1984)/4)x1461 (1) 

Que nos da el número de días 
que hay entre dos años bisiestos 
sucesivos, y a continuación calcu¬ 
lamos: 

(X - 1984 - INT((X-1984)/4)x4)x 
x365 (2) 

Que nos da el número de días 
que hay desde el último año bisies¬ 


to hasta el considerado. Sumando 
esto a (1) obtendremos el resultado 
apetecido. 

Supóngase que queremos hallar 
el número de días que hay del 1 de 
enero de 1984 al 1 de enero de 
2002, Comenzamos por calcular 

( 1 ). 

INT ((2002-1984)/4)= 4; 4x1461 = 
5844 

En consecuencia hemos encon¬ 
trado que en el período considera¬ 
do hay 4 grupos de 4 años y en es¬ 
tos 4 grupos un total de 5844 días. 


Calculamos ahora (2). 

2002- 1984-4x4 =2; 2 x365 = 
730 

Por tanto el número de días será 
5844 + 730 = 6574 

Calculemos ahora el número de 
semanas del siguiente modo: 

INT (6574/7)= 939 
Y ahora calculemos 
6574-939x7=1 

En consecuencia, de 1 de enero 
de 1984 a 1 de enero de 2002 sobra 
un día para que el número de se- 



10 DIM L(12,31): DIM C(12,31) 

: DIM a (12¡, 31 í : DIM m*(12,13): D 
IM d*<7,12) 

20 LET Z$ = ""i LET DIAli-O: LET 
C$=" I/7-INT <T/7) " t LET A*="DIF/ 
4-INT (JDIF/4) ": LET B«="INT (DI/ 
7) " 


100 LET (1> = "ENERO 31"; 

LET M$(2)“"FEBRERO 28"{ LET M 
*(3)="MARZO 31" 

110 LET m (4)“"ABRIL 30": 

LET (5)="MAYO 31": LET M 

$(6)“"JUNIO 30" 


120 LET Mí (7)«"JULIO 31": 

LET Mí (8)="AGOSTO 31": LET M 

í(9)“"SEPTIEMBRE 30" 

130 LET Mí(10)="OCTUBRE 31*'# 
LET Mí(11)«"NOVIEMBRE 30": LET 
Mí(12)“"DICIEMBRE 30" 

140 LET Dí(1)="LUNES": LET DÍÍ2 
)="MARTES": LET Dí(3)«"MIERCOLES 
LET Dí(4)«"JUEVES”: LET Dí(5) 
“"VIERNES": LET Dí (6) ="SABADO”: 
LET Dí(7)“"DOMINGO" 

150 LET a (1,1)=1: LET a(l.ó)=l: 
LET a(3,19)=1¡ LET a(4,l)=l: LE 
T a (6,21) = 1: LET a (7, 25) =1: LET 
a(B,15)=l: LET a(10,12)=l: LET a 
<11,1)=1: LET a(12,25)«1 
500 CLS : PRINT "QUIERE:": PRIN 
T : PRINT "0 - OBTENER UN ANO": 
PRINT "1 - OBTENER UN MES" 

510 PRINT "2 - HACER ANOTACIONE 
S" 


520 PRINT "3 - 
530 PRINT "4 - 
ONES" 

535 PRINT ”5 - 
ONES" 

540 PRINT "6 - 
ES" 


VER ANOTACIONES" 
CANCELAR ANOTACI 

CORREGIR ANOTACI 

GRABAR ANOTACION 


GO TO 1000 
GO TO 1000 
GO TO 2000 
GO TO 2500 
GO TO 3000 
GO TO 3500 
GO TQ 4000 
GG TO 4500 


550 PRINT ”7 - CARGAR ANOTACION 
ES" 

560 INPUT NU 
565 IF NU=0 THEN 
570 IF NU=1 THEN 
580 IF NU=2 THEN 
590 IF NU=3 THEN 
600 IF NU=4 THEN 
610 IF NU=5 THEN 
620 IF NU“6 THEN 
630 IF NU=7 THEN 
1000 INPUT "ANO: "; ANO 
1005 IF nu»0 THEN GO TO 8000 
1020 IF nu<>0 THEN CLS ; GO SUB 
9000: INPUT "MES: ":MES 
1030 LET DIF“AND—1984 
1040 LET DIA“INT (DIF/4)*1461 
1050 LET RES“(DIF~INT (DIF/4)*4) 
*365: LET DIA!=DIA+RES 
1060 LET DIAM=0: FOR 1=1 TO MES- 
1 

1065 LET DIAM=DIAM+VAL Mí(I,12 T 
O 13) 


1067 IF VAL A*=Ú AND 1=2 THEN L 
ET DIAM=DIAM+1 

1068 NEXT I 

1070 LET DI=DIAl+DIAMl LET NOM=I 
NT (DI/7): LET RED=DI-7*NQM 
1075 IF VAL A$<>0 THEN LET RED= 
RED+1 


ÍOBO IF RED=0 THEN LET RED=7 
1090 LET RED=ABS RED: PRINT Dí (R 
ED) 


1095 IF nu=0 THEN RETURN 

1100 GO TO 8000 

2000 CLB : GO SUB 9000 

2005 INPUT "MES CN PARA SALIR): 

”?PÍ: IF P^= ,, N" OR pí="n" THEN 

GO TO 500 

2007 LET M=VAL Pí 

2010 INPUT "DIA: ";D 






manas sea exacto y por tanto será 
lunes (recuérdese que el 1 de enero 
del 84 fue domingo). 

Esto está bien, pero no es nues¬ 
tro propósito, queremos conseguir, 
dado un mes, el calendario de éste, 
Esto significa saber en qué día de la 
semana empieza el mes, lo cual a 
su vez significa obtener el número 
de días que van del 1 de enero al 1 
del mes considerado. Para resolver 
este problema optamos por la si¬ 
guiente solución: en una matriz 
m$( 12,31) introducimos el nombre 
del mes y en el carácter 12 y 13 del 


elemento de la matriz, introduci¬ 
mos el número de días del mes 
(véase líneas 110 a 130). Ahora ya 
es fácil resolver nuestro problema. 
Imprimimos en la pantalla los me¬ 
ses con sus respectivos números (a 
enero le corresponde 1, a febrero 
2...) y pedimos el año y mes del 
que se quiere el calendario. 

(1) LET DIAM= 0: FOR 1=1 TO 
MES-1 

(2) LET DIAM= DIAM + M$(I,12 
TO 13) 

(3) IF VAL A$=0 AND 1=2 THEN 


LET DIAMb DIAM+1 

(4) NEXT I 

A$ está definida por A$= 
“D1F/4 - INT (DIF/4)” siendo 
DIF la diferencia entre 1984 y el 
año deseado. A la luz de estas defi¬ 
niciones debe estar claro el propó¬ 
sito de la línea (3) (1067 en el pro¬ 
grama), para detectar si el año es 
bisiesto o no (como empezamos en 
el 1984, que sí lo es, cada vez que 
pasen 4 años también lo será y 
VAL A$ será 0 en estos años) y en 
el caso de que lo sea, al mes de fe- 


2015 CLS : PRINT FLASH 1 ¡"PEERA 
RADQ PARA ANOTACACION" 

2020 INF'UT LINE F* 

2030 LET LQNG=LEN F*¡ LET COt1=LE 
N Z*: LET L(M„D)=LQNG: LET C<M,D 
) -COM 

2040 LET Z*=Z$+F$ 

2100 BEEP 1,7: CLS i PRINT BRIG 
HT 1 ; FLASH 1 ;"ANOTADO (PULSE UN 
A TECLA)": PAUSE 0: GO TO 2000 : 
GO TO 500 

2500 CLS : GO SUB 9000 

2504 INPUT "MES(N PARA SALIR); " 
SPt: IF P$="N" QR P*B"n" THEN G 
O TO 500 

2505 LET M=VAL P* 

2510 INPUT "DIA: "5 D 

2515 IF L(M,D>=0 THEN CLS : BEE 
P 1,2: PRINT FLASH 1;"EN ESTA F 
ECHA NO HAY ANOTACION. REPlfA DA 
TOS POR FAVOR"; PAUSE 150: GO TO 
2500 

2520 LET LONG»L(M,D)-1: LET CÜM= 
C (M,D) +1 

2530 CLS : PRINT Z¡MCOM TO COM+L 
ONG) 

2535 IF NU=5 QR NU=4 THEN RETUR 
N 

2540 F'RINT BRIGBt i : #1 ¡ "TERMINA 
DO PULSE UNA TECLA": PAUSE O: GO 
TO 2500 

3000 GO SUB 2500 

3010 LET C(M,D)«0« LET Z*=Z *(1 T 
□ CQM- 1 >+Z$(COM+LONG +1 TO LEN Z* 
) 

3015 PRINT AT 21 ,O;"ESPERE UN MO 
MENTO." 

3020 FOR W=M TO 12: FOR J=1 TD 3 
1 

3030 IF C(W,J)<>0 THEN LET C(W, 
J)=C(W,J)-(LONG+ 1 ) 


3040 NEXT J: NEXT W 
3050 LET L(M,D)=0: BEEP .5,7: PR 
INT # 1 ;"VALE": PAUSE 50; GO TO 3 
000 

3500 LET BQ=0: GO SUB 2500 
3510 INPUT "N PARA SALIR: ";X$: 
IF XS^'N" OR X**"n" THEN GO TO 
500 

3515 PRINT : FOR I«CÜM TO COM+LG 
NG 

3520 PRINT INVERSE 1iZ*(I)ji BE 
EP .1,7 

3530 IF INKEY*=" " THEN INPUT 
LINE R*: LET Z*=Z$(1 TO I)+R*+Z* 
(1+1 TO LEN z$)¡ GO SUB 9700: GO 
SUB 2530: GO TO 3510 
3533 IF I=LONG+COM AND B 0=1 THEN 
LET B0=0: PRINT INPUT "S 

EGURO? S/N: "¡WS: GO SUB 9990: I 
F W$="S" OR U|$="s" THEN GO SUB 
9500: GO TO 3510 
3535 IF CQDE INKEYS=13 AND B 0=0 
THEN LET Bü=l: PRINT LET 

IS»It BEEP 1,7 

3537 IF CODE INKEY*-13 AND B0=1 

THEN LET BO»=Ot PRINT INPU 

T "SEGURO? S/N: " jW*: GO SUB 999 
O: IF W$ = ,, S" OR W$= ll s 1 ' THEN GO 
SUB 9500: GO TO 3510 

3538 IF INKEYÍ< >"M" THEN GO TO 
3530 

3550 NEXT I 
3560 GO TO 3510 

4000 INPUT "NOMBRE DEL FICHERO: 

"; X* 

4010 SAVE X$ DATA Z*(): SAVE X$ 
DATA LO: SAVE X* DATA CO 
4020 GD TO 500 

4500 INPUT "NOMBRE DEL FICHERO: 
"?X* 

4510 IF CODE XS=13 THEN LOAD 


li n 













brero (1=2) le sumamos 1 día de 
modo que tenga 29 y no 28 días. 

Cuando se han ejecutado estas 
líneas sumamos el número de días 
obtenido al número de días que 
van de 1 de enero a 1 de enero, cal¬ 
culamos el número de semanas 
que hay en ese intervalo y el resto 
de la división: n.“ de días totales/7. 
Con esto sabemos en qué día de la 
semana comienza el mes, acaban¬ 
do la tediosa parte de cálculo. 

Lo siguiente es imprimir el mes 
deseado. Para ello comenzamos 
imprimiendo en inverso el mes y 
año de que se trata, y a continua¬ 
ción los días de la semana. Des- 


“E1 mes, con su número de 
días, se mete en una tabla.” 


pues definimos la variable FIN= 
VAL A$(MES,12 TO 13) que nos 
indica la longitud del mes con la 
salvedad ya mencionada de que si 
el año es bisiesto y el mes febrero 
FIN= FIN + 1. A continuación con 
un bucle FOR 1=1 TO FIN vamos 
colocando los días uno a uno con 
la ayuda del comando AT CON- 
,CO donde CON y CO son dos va¬ 


riables que indican el número de 
línea (incrementándose en dos 
cada vez que CO=25) y el número 
de columna (incrementándose de 4 
en 4 hasta llegar a 25 momento en 
el cual se inicializa a 1). respecti¬ 
vamente. 

Para terminar con esta sección 
de programa tan sólo aclarar tres 
puntos: 

1) La variable CO debe de es¬ 
tar inicializada para que el primer 
día del mes caiga en el día ante- „ 
riormente hallado. De esta forma, 
si por ejemplo el día uno es martes, 
el resto de dividir el número de 
días entre 7 va a ser 2 y en conse- 


DATA Sí < > ¡ LOAD "" DATA LO: LO 
AD " 11 DATA C O : GO TO 500 
4520 LOAD Xí DATA SíO: LOAD Xí 
DATA LO: LOAD Xí DATA CO: GO T 
O 500 

8000 IF nu=0 THEN FOR j=l TD 12 
: LET mes=j: GQ SUB 1030 
8005 CLS : PRINT INVERSE 1 ;MÍ(M 
ES ,1 TO 11),ANO: PRINT : PRINT " 
L M X J V S D"; PRI 
NT 

8010 LET FIN-VAL Mí(MES,12 TO 13 

> 

8015 IF MES=2 AND VAL Aí=0 THEN 
LET FIN-FIN+1 

B020 LET CO-(RED-l)*4+1; LET CON 
-4: FOR I=*l TO FIN 

8023 IF L<MES, 1)00 AND ANO» 1985 
AND i<=? THEN PRINT AT CON,CO- 

1; M C"; AT CON,CQ+ 1 ;"3" 

8024 IF L(MES, 1)00 AND ANQ-1985 
AND i>=9 THEN PRINT AT CON,CD- 

1|"C"j¡AT CON,CQ+2;"U" 

8025 IF a(mes,i)=1 AND co<>25 TH 
EN PRINT INVERSE 1jAT con,co;i 
: LET co»co+4: GO TO 8050 

8030 IF cd< >25 THEN PRINT AT CO 
N,CO;I: LET CD-CO+4: GG TO 8050 
8040 IF CO—25 THEN PRINT INVER 
SE 1;AT CON,25;i: LET C0N»C0N+2: 

LET C0=1 
8050 NEXT I 

8055 IF NU=0 THEN PRINT #1;"PUL 
SE UNA TECLA (R PARA RETROCEDER 
)": PAUSE O: IF INKEYÍ=*'R" ÜR IN 
KEYí="r" THEN LET j=j-2 
B057 IF nu=0 THEN NEXT j 
8060 PRINT # 1 ;"TERMINADO (PULSE 
UNA TECLA)": PAUSE O: 60 TO 500 


9000 FOR 1=1 TO 12: PRINT TAB O; 

I ? TAB 4;" - ’*; TAB 8 ;MÍ<I): NEXT 
I 

9010 RETURN 

9500 LET ERU-LEN 2$: LET ZÍ=ZÍ (1 
TO IS)+Zí(I+l TQ ERU) 

9510 LET LONG-LONG-<I-IS): LET L 
(M,D)=L0NG+1 

9515 CLS ¡ PRINT ZííCOM TO LONG+ 
COM) 

9517 PRINT AT 21,O;"ESPERE UN MO 
MENTO." 

9520 FOR W =1 TO 12: FOR J =1 TO 3 

1 

9530 IF C(W,J)<>0 AND C(W,J)>C(M 
,D> THEN LET C(W,J)=C(W,J)-(I-I 
S) 

9540 NEXT J: NEXT W 
9550 RETURN 

9700 LET URU-LEN Rí: LET L(M,D)= 
L(M,D)+URU: LET LONG-LDNG+URU 
9705 PRINT AT 21,0:"ESPERE UN MO 
MENTO. M 

9710 FOR W=1 TO 12: FOR J=1 TO 3 

1 

9720 IF CCW»J><>0 AND C(W,J)>C(M 
,D) THEN LET C(W,J)»C(W,J>+URU 
9730 NEXT Ji NEXT W 
9740 PRINT ZííCOM TQ COM+LÜNG) 
9750 RETURN 

9990 IF WÍ="N" DR Wí« ,t n" THEN C 
LS : PRINT ZÍÍCOM TQ COM+LONG): 
PRINT : PRINT INVERSE 1;ZÍÍCOM 
TO IS>;: LET i=is 
9995 RETURN 

9997 IF CODE INKEYÍ =0 THEN GO T 
O 9997 

9999 PRINT CODE INKEYí: GO TO 99 
90 









cuencia deberemos comenzar a 
imprimir en (2 - l)x4 + 1 (el lunes 
que tiene por resto 1 lo colocamos 
en la columna 1) como se puede 
ver en la línea 8020. 

2) Cada vez que CO=25 estare¬ 
mos en domingo y como es fiesta 
queremos que se imprima en in¬ 
verso (línea 8040). 

3) Para delectar una fiesta di- 
mensionamos una matriz a( 12,31) 
en la cual ponemos a I los elemen¬ 
tos que son fiesta. 

Obtener el calendario de un año 
entero se limita a añadir la línea 
8000 y 8057 que lo único que ha¬ 
cen es ir recorriendo el calendario 
de mes en mes. 

La segunda parte del programa 
(opciones 2, 3, 4, 5, 6) convierten 
al Spectrum en una verdadera 
agenda. Con estas opciones, podrá 
hacer anotaciones, verlas, corregir¬ 
las, tacharlas, grabarlas y cargarlas 
de cinta. En otros lenguajes con fi¬ 
cheros, esta parte del programa es¬ 
taría pideticamente resuelta, pero 
no es así en BASIC que no se dis¬ 
pone de ficheros propiamente di¬ 
chos, Un primer modo de atacar el 
problema consistiría en definir una 
matriz de cadena en la cual cada 
elemento viniera definido por el 
mes y el día del mes en que se quie¬ 
re hacer la anotación. Proceder de 
este modo es inadecuado, pues en¬ 
tonces estamos obligados a dar una 
longitud máxima a la anotación. 
Como las anotaciones pueden te¬ 
ner tamaños muy distintos limita¬ 
ríamos muy seriamente la longitud 
máxima o desperdiciaríamos una 
gran cantidad de memoria. La so¬ 
lución dada al problema se puede 
dividir en dos puntos. 

1) Meter todas las anotaciones 
en una variable de cadena Z$ en la 
que no hay que especificar su lon¬ 
gitud. 

2) Para poder localizar y leer 
cada una de las anotaciones, di- 
mensionar dos matrices L(!2,3!) y 
C(12,31) en la que guardar las lon¬ 
gitudes y comienzo de la anotación 
correspondiente al día í; j) en la 
matriz Z$. 

Este método tiene la ventaja de 
ahorrar una gran cantidad de me¬ 
moria, pero también tiene el in¬ 
conveniente de que los procesos de 
localización y lectura se hacen más 


“Para las anotaciones se uti¬ 
liza una variable de cadena/’ 


complicados. Veamos cómo fun¬ 
ciona en un caso práctico. Supon¬ 
gamos que el día 1 de junio tene¬ 
mos un examen de física con lo 
que la anotación es: «Examen de 
física». 

Supongamos ahora que el 10 de 
marzo es el cumpleaños de una 
amiga, que llamaremos María, la 
anotación será: «Cumpleaños de 
María. Comprar regalo». 

En Z$ tendremos. 

Z$= «Examen de física. Cum¬ 
pleaños de María. Comprar rega¬ 
los», 

Y las matrices auxiliares ten¬ 
drán todos sus elementos a cero 
salvo la de los días en que se ha 
anotado algo: 

C(6,!)= 1 // L(6,l)=17 
C(3,10)=18 II L(3,l 8)=37 
Cuando queramos recuperar el 
mensaje de un día cualquiera me¬ 
teremos en el ordenador la fecha 
de este día e inmediatamente ob¬ 
tendremos el mensaje, en caso de 
haberlo. Para esto el ordenador de¬ 
fine las variables: COM= C(ij), 
LONG= Lfij), e imprime Z$(COM 
TO COM+LONG) en pantalla. 
Este es a grandes rasgos el proce¬ 
so de creación de notas, desde lue¬ 
go falta comentar algunos detalles 
técnicos de menor importancia 
como es el hecho de que la intro¬ 
ducción del mensaje se hace a tra¬ 
vés de una variable de cadena Z$ 
mediante la cual se define L(ij) 
como: L(i j)= LEN FS, pudiéndose 
definir entonces C(ij) según: 
C(i j)= LEN Z$, y definir por últi¬ 
mo Z$ como: Z$= Z$ + F$ 

La siguiente opción en el menú 
es la referida a la eliminación de 
anotaciones. Se extiende desde la 
línea 3000 a la 3050 y comienza 
haciendo. 

ZS = Z$(l TO COM - 1) + 
Z$(COM+LONG+l TO LEN Z$) 
Donde tanto COM como LONG 
están definidas para la anotación a 
eliminar. Una vez conseguida la 
desaparición de la anotación de¬ 
seada de Z$, lo que conviene hacer 
ahora es poner tanto el elemento 


de matriz C(ij) como el L(ij) a 
cero con lo que el ordenador inter¬ 
pretará en lo sucesivo que en el día 
definido por el mes “i” y el día de 
mes “j” no hay ninguna anotación. 
Ocurre ahora que al desaparecer 
este elemento ha quedado un hue¬ 
co dentro de la matriz C(ij) que 
define el comienzo de cada mensa¬ 
je, Para cerrarlo utilizamos el bu¬ 
cle de las líneas 3020 a 3040 que lo 
que hace es restar a todos los ele¬ 
mentos de matriz cuyo comienzo 
es superior al que hemos quitado 
la longitud del mensaje eliminado. 

Veamos esto con un ejemplo. 
Supongamos que aparte de los dos 
mensajes anteriores, tenemos un 
tercero para el día 17 de agosto que 
dice así: «Regar las plantas». Con 
lo que ahora Z$ queda: 

Z$= «Examen de física. Cum¬ 
pleaños de María. Comprar rega¬ 
los. Regar las plantas». 

C(8,17)=74//L(8,17)=18 

Si ahora suprimimos la segunda 
anotación deberemos, siguiendo el 
texto anterior, poner: 

Z$= ZS(1 TO COM - 1) + 
Z$(COM+LONG+l TO LEN Z$) 

Z$ = Z$(l TO 18) + Z$(56 TO 
73) 

Entonces el bucle anteriormente 
citado sólo actuará sobre C(8,17) 
que quedará ahora C( 17,18)= 74 — 
28=46. 

Mediante la opción 5, es posible 
corregir cualquier anotación. Para 
ello, después de haber introducido 
la fecha requerida se obtendrá el 
texto a corregir. Apretando sucesi¬ 
vamente la «m» se obtiene letra a 
letra el texto en video Inverso. 
Cuando llegue al comienzo de una 
palabra o grupo de palabras que 
quiera suprimir pulse ENTER con 
lo que obtendrá el carácter «#», a 
continuación pulse de nuevo la 
«m» hasta llegar al final del texto a 
suprimir. Pulse de nuevo ENTER, 
obteniendo otro «#». Una vez he¬ 
cho esto, puede ejecutarlo teclean¬ 
do una «s» o cancelarlo pulsando 
una «n». Si lo que quiere es añadir 
un grupo de palabras pulse «m» 
hasta llegar al lugar donde quiera 
insertar las nuevas palabras. Pulse 
SPACE y escriba seguidamente el 
nuevo texto, 

Julio Gómez Herrero 
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Hasta ahora siempre hemos uti¬ 
lizado nuestro Spectrum para pro¬ 
gramar con él en BASIC, o en có¬ 
digo máquina, pero existen otras 
posibilidades de trabajar con otros 
lenguajes de programación, desco¬ 
nocidos para la mayoria. En este 
artículo vamos a tratar de introdu¬ 
cimos un poco en el lenguaje PAS¬ 
CAL. 

Para ello trataremos de explicar 
las características esenciales de 
este lenguaje, las instrucciones más 
importantes y los diagramas de 
construcción, intentando ilustrarlo 
con pequeños programas ejemplo. 

No pretendemos que esto sea un 
curso intensivo de PASCAL, sino 
dar una introducción para todo 
aquel que se sienta interesado en 
sacar un mayor rendimiento a su 
Spectrum, y a programar en otros 
lenguajes distintos de los habitua¬ 
les. 

Lo primero que debemos indicar 
al respecto, es que para poder utili¬ 
zar el lenguaje PASCAL, nos será 
necesario un compilador. Existen 
varios modelos en el mercado, 


cada uno con sus características es¬ 
peciales. Una vez en nuestro poder 
el compilador, estaremos en con¬ 
diciones de poder adentramos en 
el mundo del PASCAL. 

Características 
del PASCAL 

La primera versión del lenguaje 
de programación PASCAL nace 
en el año 1968, siguiendo la línea 
de los lenguajes Algol 68, y Algol 
W. El primer compilador operati¬ 
vo aparece en el año 1970, siendo 
publicado en 1971. 

El gran interés que provocaron 
estas publicaciones, motiva el de¬ 
sarrollo de otros compiladores, y 
como consecuencia la consolida¬ 
ción de este lenguaje. Por último, 
como iniciativa de la BCS circula¬ 
ron entre los años 1978 y 1980, 
cinco borradores del standard de 
PASCAL, consiguiéndose así su 
standarización. Así el PASCAL 
nace como consecuencia del hecho 
de ír buscando lenguajes de pro¬ 
gramación cada vez más adecua¬ 
dos al usuario, dándole un lengua¬ 


je estructurado y de una compleji¬ 
dad baja. 

Las características del lenguaje 
PASCAL coinciden con las de la 
Programación Estructurada que 
son principalmente las siguientes: 

a) Que el programa sea secuen- 
cial. 

b) Que sea estructurado, es de¬ 
cir, que se pueda escribir el progra¬ 
ma sólo con las siguientes estruc¬ 
turas básicas: proceso secuencial, 
IF-THEN-ELSE, y el bucle WHI- 
LE (que serán explicadas más ade¬ 
lante). 

c) Que sea corto. 

d) Que esté fragmentado. Se 
intenta conseguir que el programa 
esté dividido en trozos, para su 
mejor mantenimiento y compren¬ 
sión. 

Una vez hecha esta breve reseña 
histórica, pasamos directamente a 
explicar las características de este 
lenguaje. 

1. J uego de caracteres 

El juego de caracteres de que se 
compone este lenguaje es el si¬ 
guiente: 

— Caracteres numéricos: Com¬ 
prenden los dígitos del 0 al 9. 

— Caracteres alfabéticos: Están 
incluidas las letras de la A a la Z. 

— Caracteres especiales: En 
ellos están incluidos los signos de 
puntuación y todos los tipos de 
operadores. 

La combinación de todos los ca¬ 
racteres indicados mediante ciertas 
reglas de formación constituye los 
elementos integrantes de un pro¬ 
grama PASCAL. 

2. Elementos de un programa 

El Pascal como todos los lengua¬ 
jes tiene sus propias palabras reser¬ 
vadas y distintos identificadores. 

Las palabras reservadas son 
aquellas que, como todos sabemos, 
pertenecen al vocabulario del pro¬ 
pio lenguaje. 

Los identificadores pueden ser 
de dos tipos: 

a) Standard: Ya declarados en 
el propio lenguaje, siendo las pro¬ 
pias palabras reservadas. 

b) No standard: Los crea e! 
programador. Para formarlos se 
usan caracteres alfabéticos y nu¬ 
méricos, con la única regla de que 





















e! primer carácter deberá ser una 
letra. Por ejemplo: Al 4V seria co¬ 
rrecto, 1 ABC no sería correcto por 
ser el primer carácter un dígito. 

Los operadores de que dispone¬ 
mos son de tres tipos: 

a) Aritméticos: indican opera¬ 
ciones aritméticas. Son: 

*, /, DÍV, MGD 

Donde: / indica división entre 
números reales; DIV indica divi¬ 
sión entre números enteros, y 
MOD calcula el resto de la divi¬ 
sión. 

b) De relación: Realizan ope¬ 
raciones de comparación entre da¬ 
tos. Se utilizan igual que en BA¬ 
SIC. Son: 


£8 EJEMPL0; 

30 N.3 i 

40 URR 

50 fii 6,C,SUMA:INTEOERj 

60 MEDIA¡REAL; 

70 BE5IN 

8® READ(AíB.C)¡ 

90 SUMA;sA+B+C; 

100 MEDIA;«SUMA/Ní 
105 UIRITE (CHR (16) ) j 
110 URITELN í'LA SUMA DE 
'¿B. ' Y ' i C ‘ ' ES ' ^UMA) ; 

180 uríteln; 

130 URITELN('LA MEDIR AR 
CA ES '.MEDIA:7:3); 

140 URITELN; 

150 ENO. 
dress; AC44 


AB47 

AB47 

A550 

AB50 

AB50 

AB53 

AB68 

AB67 

AB9F 

ABAS 


Run? 

LA SUMA DE 345 ,543 Y 38 ES 980 
LA MEDIA ARITMETICA ES 306.667 


c) Lógicos: Se utilizan de la 
misma forma que en BASIC, y son 
AND, OR, NOT. 

d) Para utilización de conjun¬ 
tos: Se verá en su momento. 


Un ejemplo de esta referencia a 
otros diagramas podría ser: 


BEGIN, 

Estructura del programa. 

END. 

Las únicas palabras obligatorias 
en un programa son: PROGRAM, 
BEGIN y END. Las demás depen¬ 
den de cada programa. Algunos 
compiladores exigen la declara¬ 
ción de variables obligatoria men- 


3. Estructura gramatical de un 
programa 

La estructura gramatical del 
programa y de cada una de las ins¬ 
trucciones que lo componen, viene 
dada por lo que se llaman los Dia¬ 
gramas de Conway. Veamos un 
ejemplo de cómo seguir estos dia¬ 
gramas: 

Mensaje 1: 


La tira ABAC se produce susti¬ 
tuyendo en el cuadrado el mensaje 
1 que explicamos anteriormente. 
La estructura de un programa 
PASCAL en el caso más genérico 
es la siguiente: 

PROGRAM nombre 

LABEL lista de etiquetas 

CONST declaración de constan¬ 
tes. 

TYPE definición de tipos. 

VAR definición de variables. 

PROCEDURE nombre del pro¬ 
cedimiento. 

FUNCTION nombre de fun¬ 
ción. 


4. Desarrollo de un programa 

Sabemos que el diagrama sintác 
tico de un identificadores 


LETRA 


letra 


La tira de caracteres ABA es un 
mensaje correcto. En cambio ¡a 
tira ABB no es un mensaje autori¬ 
zado, ya que no se puede seguir 
mediante las lineas del diagrama. 

Una vez visto el funcionamiento 
de los diagramas veamos su especi¬ 
ficación. Existen tres clases de sím¬ 
bolos: 


A partir de él vamos a definir la 
sintaxis de un programa PASCAL. 


PROGRAMA 


PARAMETROS 


IDENTIFICADO* 


PROGRAMA 


CUERPO 


Indica palabra 
reservada 


Vamos a explicar el diagrama 
anterior: 


— Parámetros del programa: Su 
diagrama es 


Indica un operador 


Hace referencia a 
otros diagramas 
sintácticos 


IDE NTiFICADQR 


— ldentificador: Será el nombre 
que le demos al programa. 


PARTE DE 


DECLARACION FUNCIONES 

DECLARACION 


Y PROCEDIMIENTOS 



- V - 



MENSAJE, 1 

- 


















— Parte de declaración; En ella 
se hará la declaración de las eti¬ 
quetas, constantes, tipos y varia- 
Normalmenle los parámetros de bles según este orden, 
un programa son INPUT para lec¬ 
tora y OUTPUT para impresora. Veamos el diagrama general: 




Examinemos ahora cada una en 
particular: 

a) LABEL 

Para declarar las etiquetas pon¬ 
dremos en primer lugar la palabra 
reservada LABEL, y a continua¬ 
ción la lista de etiquetas separadas 
por comas. Las etiquetas serán nú¬ 
meros enteros entre 1 y 9999. Por 
ejemplo: 

LABEL 957, 1,32 

La utilización de las etiquetas se 
produce en la sentencia de bifurca¬ 
ción GO TO, pero la utilizaremos 
muy poco ya que esta instrucción 
se trata de evitar lo más posible en 
programación estructurada. 

b) CONST 

Son datos que no varían a lo lar¬ 
go de la ejecución del programa. 


O 


PülgtrQ* reEe-rvooaj 
al PASCAL 


O 


Operador d«l 


Opírütión definida 
P&r aíra diagroma 



PiíHiriSCiQn 

de 

vane tías 


Dáeloroeídn 

da 

vuridbl** 





Pflíiprdeiín 

é# 

Pune ari*s 
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procí-difTiiantín 
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INMEDIATAMENTE 

DISPONIBLE 


ESPECIFICACIONES 

MODELO: 

CUB 1451/DQ3 
14" QL MONITOR 
Entrada RGB-TTL 
Resolución (PIXELSj 
653 (H) x 585 i Vi 
DOT PITCH 0,43 mm 
Bandwidth 18 MHz 
Específicamente diseñado 
para- el QL que 
aprovecha su facilidad 
única de 85 columnas. 


i 
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RASGAL 

Ejemplos de declaración son: 

CONST 
pi = 3,14159; 
diasemana = 7; 

c) TYPE 

Lo veremos más adelante. 

d) VAR 

Son datos que varían a lo largo 
del programa. Hay cinco tipos bá- 

SÍCOS! 

— Enteras: iNTEGER. Para 
enteros positivos y negativos. 

— Reales: REAL. Para núme- 

tíyi realeo 

— Booleano: BOOLEAN. Para 
variables de tipo lógico que pue¬ 
den tomar dos valores TRUE o 
FALSE según se cumpla o no. 

— Carácter: CHAR. Contienen 
caracteres alfabéticos y numéricos 
y además el carácter especial blan¬ 
co. 

— Matriz; ARRAY. Hablare¬ 
mos de ello más adelante. 

Ejemplos de declaración de va¬ 
riables son: 

VAR 

n.° alumnos aula: INTEGER; 

madrileño: BOOLEAN; 

peso: REAL; 

horario: CHAR; 

Aparte de estos cinco tipos bási¬ 
cos las variables podrán ser de los 
tipos definidos mediante la decla¬ 
ración TYPE. 

La declaración de funciones y 
procedimientos la dejaremos para 
cuando hayamos avanzado un 
poco más. Lo único que indicare¬ 
mos es que tienen una función pa¬ 
recida a las subrutinas en BASIC. 

Vamos a explicar por último el 
cuerpo de! programa. 

El diagrama del cuerpo es: 

___j 3ENTE.NCÍAS CQMPUESTJS -*- 


siendo la sentencia compuesta: 



y las posibles sentencias: 



Antes de explicar el primer pro¬ 
grama, vamos a explicar las sen¬ 
tencias fundamentales: 

a) Sentencia de asignación 

Es una de las más importantes y 
a la vez más sencilla. 

Su diagrama es: 


El signo := conviene leerlo como 
«se convierte en». 

Esta instrucción ejecuta la ex¬ 
presión y asigna el valor de la eje¬ 


cución a la variable. Sea por ejem¬ 
plo; 

Produeto:=Nl *N2 
si, por ejemplo, NI contiene un 5, 
y N2 un 2, primero se hará el pro¬ 
ducto 5 * 2 = 10, y se almacenará 
en Producto, luego la variable pro¬ 
ducto contendrá desde ese mo¬ 
mento el valor 10. 
b) Sentencia de Entrada 
La entrada standard se hará me¬ 
diante la instrucción READ. que 
permite la lectura de un dato y su 
asignación a una variable del pro¬ 
grama. Su formato es: READ, 


TI je 
simple 




ARRAY ) -^T)-t. si '£p, e Tipo 




Letra 


>v 


Leiro 


> 


Dígito 



















































































































(dato 1, dato2,...); también existe la 
opción READLN (abreviatura de 
READ LINE) en la cual, cada vez 
que se lee un dato se salta de línea 
para leer el siguiente en la siguien¬ 
te linea. Su formato es: READLN 
(datol, dato2, veamos un 
ejemplo para la aclaración de estas 
sentencias: 

Si la entrada de datos es: 

25 4 

84 23 

La sentencia READ (A,B) asig¬ 
nará a la variable A el valor 25, y a 
la variable B el valor 4. Por otra 
parte, la sentencia READLN 
(A.B), asignará a la variable A el 
valor 25, y a la variable B el valor 
84. 

c) Sentencia de salida 

La salida standard se hará me¬ 
diante la instrucción WRITE. Se 


utiliza igual que la instrucción 
PR1NT en BASIC. Sólo permite la 
escritura de valores numéricos de 
las variables. Si queremos incluir 
en la sentencia un literal, éste de¬ 
berá ir encerrado entre comilla (’). 
Su formato es WRITE (resultado 1, 
resultado2, ...); si queremos escri¬ 
bir por líneas usaremos la opción 
WRITELN. 

Vamos a ver la diferencia entre 
WRITE y WRITELN mediante 
dos pequeños programas. Prueba 
estos programas y observa la dife¬ 
rencia en las salidas: 

PROGRAM Saludo; 

BEGIN 

WRITE (‘Esto se escribirá en 
una línea’) 

END. 

PROGRAM Saludo2; 

BEGIN 

WRITELN (‘Esto se escribirá’); 


WRITELN (‘En dos líneas’) 

END. 

La utilización de WRITELN sin 
parámetros producirá una línea en 
blanco. Prueba a incluir otra ins¬ 
trucción WRITELN en medio de 
las dos sentencias de escritura de 
Saludo2. 

Por último existe otra opción en 
la sentencia de escritura, y es indi¬ 
carle al ordenador la limitación de 
caracteres de la salida. 

Su formato es: WRITE (resulta¬ 
do : e: ej); 

siendo «e» el n.° de caracteres con 
que queremos escribir el resultado. 
Cuando vayamos a escribir un nú¬ 
mero decimal, podemos indicar 
también mediante la opción e, 
cuántos decimales queremos que 
salgan escritos, es decir, de los «e» 
caracteres que se escribirán, «C|» 
estarán detrás del punto decimal. 
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Para estas navidades no se lo va¬ 
mos a poner muy difícil. Empeza¬ 
rnos con dos dimensiones... pero le 
prometemos las cuatro para un 
próximo número. 

Nueve niveles de dificultad le 
permiten elegir la modalidad de 
juego más acorde con la compleji¬ 
dad de sus neuronas. Y no lo tome 
a broma, para salir airoso del nivel 
nueve necesitará bastante habili¬ 
dad y no menos destreza. 

Elegido el nivel aparecerá en la 
pantalla un cuadro de 400 casillas 
(20 x 20). El ordenador comenzará 
a cambiar el modo de impresión de 
las casillas aleatoriamente: nor¬ 
mal, inverso, normal, etc. A mayor 
ni vel elegido, mayor será el núme¬ 
ro de inversiones realizadas (la 


combinación resultante después de 
elegir el nivel 9, no es apta para 
cardíacos). 

Para ganar el juego, ha de lograr 
que todas las casillas estén en blan¬ 
co, es decir, que todas estén en 
modo normal y ninguna en inver¬ 
so. Para ello, en cada jugada ha de 
dar la posición de una casilla refe- 
renciada por sus coordenadas, pri¬ 
mero la columna y después la fila. 
Comprobará que esta casilla, y to¬ 
das las que se encuentran a su alre¬ 
dedor, cambian del modo normal 
al inverso o al contrario, según la 
situación en que se encontrasen. 
¿Ha comprendido el funciona¬ 
miento? Le aseguramos que es po¬ 
sible ganar, pero no le decimos en 
el nivel que lo logramos. 
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«Ejemplo «3t a la 
representad ón en 
pantalla, jugando 
a nivel 2». 



140 LET x=C0DE l*-63i LET y=VAL 


ISO 80 SUB 2000: REM cambiar pa 
ntal1 a. 

160 IF N0R“400 OR INV=400 THEN 
GO TO 5000: REM Completado. 

170 GO TO 100 


1000 REM Pantalla. 

1001 CLS * INK 0 

1005 PRINT PAPER 6;" ABCDEFGH1 
JKLMNOPQRST " 


5 POKE 23658,8: REM Mayuscul 

as. 

6 LET goes=0 

7 PAPER 1: BORDER 1: INK 7: C 


1010 FOR i~l TO 20 

1015 IF -f<10 THEN PRINT PAPER 

6 j ” " ; 

1020 PRINT PAPER 6;f; PAPER 7;" 
++++++++++++++++++++-'; PAPER 6; + 
;: IF F<10 THEN PRINT PAPER 6; 


8 GO TO 22 

10 CLS : FOR f-0 TO 7: PRINT 
PAPER -f; INK 9j TAB i ; "PUZZLE" : N 
EXT i 

20 FOR i—1 TO O STEP -1: PRINT 

PAPER t: INK 9; TAB -f ; "PUZZLE" t 

NEXT «F 

21 RETURN 

22 GO SUB 10: PRINT AT 20,0*"I 
nstrucciones s/n.” 

24 IF INKEY*<> M S" ANO INKEY*<> 
"N" THEN GO TO 24 

26 IF INKEY**"S” THEN GO SUB 
6000* REM instrucccienes 

30 GO SUB 10: PRINT #l;"Dificu 
itad (1 TO 9) ?” 

35 LET d*=INKEY$: IF d*="" THE 
N GO TO 35 

40 IF d$<"1" OR d*>"9" THEN G 
O TO 35 

45 LET di“INT VAL d* 

50 LET di“di*10 

70 GO SUB 1000: REM dibujar ta 
blero, 

BO LET ñor=400: LET inv-0 

90 GO SUB 3000: REM Manejo tab 
1 ero. 

100 REM Tablero. 

105 LET goe£“goe&+l 

107 PRINT #1;AT O,Oj"Movimiento 

"; goes 

110 INPUT AT 1,1;” Letra y nume 
ro LINE m*: IF LEN m*>3 OR LE 
N M*<2 THEN GÜ TO 110 

120 LET LET T 

O ): IF 1 *<" A 11 OR 1 *>"T" THEN G 
O TO 110 

130 IF m*<" 1" ÜR m*>"9'' THEN G 
O TO 110 


1025 PRINT 
1030 NEXT f 

1040 PRINT PAPER 6;” ABCDEFGHI 
JKLMNOPQRST " 

1045 INK 7 
1050 RETURN 

2000 REM Cambiar pantalla. 

2020 IF ATTR (y,x)=56 THEN PRIN 
T AT y,x; INK 7; PAPER 0| ,, + "t LE 
T inv*inv+l: LET nor=nor-l: GO T 
O 2030 

2025 IF ATTR (y,x><>48 THEN PRI 
NT AT y, x; INK 6; PAPER 7;"+": L 
ET nor=nor+l: LET inv«inv~l 
2030 IF ATTR (y,x+l>=56 THEN PR 
INT AT y,x+l; INK 7; PAPER O;"+" 
t LET inv®inv+l: LET nor«nor-l: 
GO TO 2040 

2035 IF ATTR (y,x+l><>48 THEN P 
RINT AT y,x+1; INK O; PAPER 7; " + 
"* LET nor=nor+l: LET inv=inv-í 
2040 IF ATTR <y,«-l)=56 THEN PR 
INT AT y,x-1; INK 7; PAPER O;"+" 
: LET inv=inv+l: LET nor*nar-l: 
GO TO 2050 

2045 IF ATTR <y,x-l><>48 THEN P 
RINT AT y,x-t; INK O? PAPER 7;"+ 
LET nor=nor+l: LET inv=inv-l 
2050 IF ATTR ty+l,x)=56 THEN PR 
INT AT y+i,x; INK 7; PAPER O;" + " 
: LET inv“inv+le LET nor^no:—1: 
GO TO 2060 

2055 IF ATTR (y+l,x»<>48 THEN P 
RINT AT y+l,x; INK O; PAPER 7 ;" + 
": LET nor=nor+l5 LET inv=inv-l 
2060 IF ATTR <y-l,x)=56 THEN PR 
INT AT y-l,x; INK 7; PAPER O;”+" 
: LET inv=inv+Ts LET nor=nor-l: 






SO TO 2070 

2065 IF ATTR (y-l,x><>48 THEN P 
RINT AT y~l,x; INK Os PAPER 7;"+ 
LET nor=nor + l: LET inv*inv-l 
2070 IF ATTR (y-1,x-1)=56 THEN 
PRINT AT y-i,x-i; INK 7? PAPER 0 
S , ' + ": LET inv=inv+l: LET nor®nor 
-1: GO TO 2080 

2075 IF ATTR (y-1, x-1) 048 THEN 
PRINT AT y-1,x-1j INK 0} PAPER 
7; M + "í LET nor=nar + lt LET inv=in 
v-1 

2080 IF ATTR <y+l,x-l>*56 THEN 
PRINT AT y+l,x-l; INK 7% PAPER O 
í"+"¡ LET irw=inv+l ¡ LET nor a nor 
-ls SO TO 2090 

2085 IF ATTR <y+1,x-1)<>48 THEN 
PRINT AT y+1,x-1; INK 0; PAPER 
7;" + ,, i LET nor=nor+li LET inv-in 
v-1 

2090 IF ATTR (y+l,x+l)=56 THEN 
PRINT AT y+L,x+l| INK 7; PAPER O 
LET inv=inv+ii LET nor=nor 
-1; GO TO 2100 

2095 IF ATTR (y+l,x + l>048 THEN 
PRINT AT y+l,x+l; INK O; PAPER 
7f u +"i LET nor=nor+ls LET inv*in 
v-1 

2100 IF ATTR (y-l,x+l>*56 THEN 
PRINT AT y—1, x +1; INK 7; PAPER O 
S ,, + 1 ' s LET inv“inv+1: LET nor*nor 
-1: GO TO 2110 

2105 IF ATTR (y-1,x + 1><>4B THEN 
PRINT AT y-l,x+l; INK O; PAPER 
7;”+ ,, a LET r>or=nor+li LET inv*in 
v-1 

2110 RETURN 
3000 REM Jugada. 

3010 FOR f =1 TO di 

3020 LET x = INT <RND*20)+2s LET y 

“INT (RND*20)+1 

3030 GO BÜB 2000 

3040 NEXT i 

3050 RETURN 

5000 REM Completado 

5010 FOR f=0 TO 30 STEP .3 

5020 BEEP .003 ,i : BEEP .003,010 

5030 NEXT -f 

5040 CLS i PRINT AT 10,3; INK 7; 

PAPER 5; FLASH 1 ( BRIGHT l;"Exc 
el entef!": PRINT AT 15,0}"Echamo 
s otra?" 

5045 PRINT AT 12,4;“Necesitaete 
"¡ FLASH 1;goes; FLASH O;" inten 
toe. " 

5050 IF INKEY*= ,,M THEN GO TO 50 


50 

5060 IF INKEYe="S" THEN GO TO 1 
5070 STOP 

5999 REM instrucciones 

6000 CLS 

6010 PRINT TAB 9s "************** 

ti 

6020 PRINT TAB 9;"* PUZZLE * 

II 

6030 PRINT TAB 9 ; H ************** 

II 

6040 PRINT *"PUZZLE es una versi 
on del cubo de Rubic en dos dim 
ensiones. El tablero es de 20*20 
• El Spec- trum seleccionara d 
istintas po- siciones aleatoriam 
ente y la in-vierte junto con la 
s siete casi-llas vecinas. Este 
proceso se repite una serie de 
veces según el nivel de dificul 
tad. " 

6050 PRINT 7 "Su único “j 

6060 FOR i *1 TO 5: PRINT CHR$ 8( 

l NEXT i 

6070 PRINT OVER 1; "_OVE 

R 0|" trabajo es dejar el ta-ble 
ro en su estado original, esdeci 
r, blanco." 

6080 PRINT AT 20,5; FLASH ls"Fre 
sione cualquier tecla para con 
tinuar” 

6090 IF INKEYÍ*"" THEN BEEP .1, 
10: GO TO 6090 

6100 FOR i*l TO 20: BEEP .l,i: N 
EXT i 

6110 RETURN 


Lineas 30-50 Introducción nivel de dificultad. La 
variable «d» se multiplica por 10 y el 
valor resultante es el número mínimo 
de intentos para ganar el juego, 

Líneas 70-90 Dibujo de las casillas (Subrutina 
1000) y realización de inversiones se¬ 
gún el nivel elegido (Subrutina 3000), 

Lineas 100-170 Bucle principal. Se incrementa el con¬ 
tador de jugadas, entrada de datos y 
verificación de su validez. La línea 
140 calcula la posición de la casilla y 
la 160 comprueba si el juego ha finali¬ 
zado. 

Lincas 1000-1050 Rutina de impresión de las casillas 
iniciales. 

Líneas 2000-2105 Rutina de cambio de la casilla elegida 
y las adyacentes. 

Líneas 2110-3050 Rutina de inversión aleatoria utilizada 
al inicio del juego. El número de in¬ 
versiones viene determinado por la 
variable «di», de nivel de juego. 
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Carlos Quintana, di rector de marketing 
de IBM en Barcelona, 


Ultimamente las agencias matri¬ 
moniales parecen estar de moda. 
Muchas de ellas quizá trabajan con 
un programa similar al que ofrece¬ 
mos a continuación, que sin em¬ 
bargo no fue ideado para “buscar” 
al compañero ideal, sino para pa¬ 
sar un buen rato. Así nos lo decía 
su autor, Carlos Quintana, director 
de marketing de IBM en Barcelo¬ 
na: “Con cierta frecuencia nos reu¬ 
nimos un grupo de amigos a cenar 
y quería enseñarles mí nuevo orde¬ 
nador con algún programa de cier¬ 
ta gracia. Así nació este programa, 
con las sugerencias de mi mujer y 
mi cuñada. A veces lo probamos 
con una o dos parejas, pero no tie¬ 
ne gracia. El límite es de diez por 
la presentación en pantalla, pero 
más de ocho resulta un poco lento. 
Puedo asegurar que funciona, ya 
que generalmente salen personas 
compatibles, aunque no siempre 
concuerda con los matrimonios”. 



No pudimos resistir la tentación 
de preguntarle el por qué un ven¬ 
dedor de IBM había decidido com¬ 


ban comprado el Sinclair, sobre 
para el Spectrum. “No he sido sólo 
yo. Compañeros míos en IBM se 


todo para meterse dentro de la ma¬ 
quinaria y ver sus posibilidades. 
Yo aprendí a programar en Cobol, 



SUSCRIBASE 
POR TELEFONO 

* más fácil, 
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7 días por semana, 24 horas a su servicio 
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Assembler y R.P6, lenguajes que fue hacer el curso de la empresa de 
entonces estaban de moda, pero 15 días, unas prácticas y listos. Lo 
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compré por los chicos y el por qué 
Sinclair se debe al bajo precio”. 

Las instrucciones REM (comen¬ 
tarios), están en catalán. “Lo tenía 
hecho en catalán, y lo pasé al cas¬ 
tellano para su publicación... pero 
olvidé los comentarios”. 

Entrando en la descripción del 
programa, clasifica y empareja de 
acuerdo con las variables descritas 
en las líneas 60 a 200 según su 
ponderación de importancia de l a 
5, tal y como se explican por pan¬ 
talla. Obviamente, puede ampliar 
o cambiar el número de variables. 

Reúnase con sus amigos y adivi¬ 
ne si su chico(a) favorito(a) es real¬ 
mente quien más le conviene. Qui¬ 
zá muy cerca de usted está su “me¬ 
dia naranja”,.. ¡Y usted sin ente¬ 
rarse! 

AutorrCarlos Quintana 48K 




NO PROGRAME 
ESTE ORDENADO 


WORLD-MICRO LE ENTREGA ElQLcON LA SOLUCION A SU PROBLEMA 


Vtor\¿'j^i i 


icro s.o. 


Avda. Mediterráneo, 7 
Tais. 251 12 00 - 251 12 0® 
28007 MADRID 

































30 LET c=15 

40 LET 11*0 

41 PRINT AT 5.12;"PAREJAS";AT 


6,12;" PRINT AT 

10, 10;*C. Qui ntana" 


50 

DIM 

ci(c,14) 

60 

LET 

cí(l)*"LECTURA" 

70 

LET 

c$(2)*"VIDA SOCIAL" 

80 

LET 

ci<3)*"VIDA FAMILIAR" 

90 

LET 

ci(4)* n DEPORTE" 

100 

LET 

ci (5)“"BUENA COMIDA" 

110 

LET 

ci(ó)="VIDA SEXUAL" 

120 

LET 

c*(7)«"VIAJES" 

130 

LET 

c*(8)“"RELIGION" 

140 

LET 

c$(9)=”JUERGA" 

150 

LET 

c4(10)="BAILE" 

160 

LET 

cid 1)“"TRABAJO" 

170 

LET 

ci(12)*"AHORRO" 

180 

LET 

ci í13)“"ORDENADO" 

190 

LET 

ci(14)“"DETALLISTA" 

200 

LET 

ci(15)“"TELEVISION" 

210 

DIM 

G < 15) 

220 

LET 

c { 1) *0 

230 

LET 

c(2)=1 

240 

LET 

c <3)*1 

250 

LET 

c <4)=0 

260 

LET 

c í5)*0 

270 

LET 

c Í6) =2 

280 

LET 

c (7)=1 

290 

LET 

c(8) -2 

300 

LET 

c < 9) = 1 

310 

LET 

c(10)=0 

320 

LET 

C d 1 ) =2 

330 

LET 

c(12) -2 

340 

LET 

c(13)=1 

350 

LET 

C <14)«1 

360 

LET 

c(15)*0 

370 

PAUSE 200; CLS 

360 

PRINT AT 5,1;"ENTRAR NUMERO 


DE PARTICIPANTES" 

390 PRINT AT B,3;"HOMBRES = 7" 

400 SO SUB 3330 

410 LET h=VAL wi 

420 IF h>9 THEN PRINT AT 10,3; 

FLASH 1;"MAXIMO 9"; BEEP 1,-11; 

PAUSE 3Ó; PRINT AT 10,3;" 

"I SO TO 400 
430 PRINT AT S,13;h 
440 DIM h$(h,12) 

450 PRINT AT 8,18;"MUJERES * ?" 

460 GO SUB 3330 

470 LET m=VAL wi 

4B0 IF fli>9 THEN PRINT AT 10,18 


S FLA8H 1;"MAXIMO 9"; BEEP 1,-11 
s PAUSE 40; PRINT AT 10.18;" 

GO TO 460 

490 PRINT AT 8,28;m 
500 DIM 12) 

510 PAUSE 100 
520 CLS 

530 PRINT AT 3,1;"NOMBRES DE LO 
S HOMBRES" 

540 FOR x=l Tü h 

550 PRINT AT 5+x,5;xí" * ?" 

560 INPUT LINE wi 
570 SO SUB 3400 
580 LET h$(>i)=w$ 

590 IF x = l THEN GO TO 650 

600 FOR w*l TO x—1 

610 IF hí(w)Oh»(x) THEN SO TO 

640 

620 BEEP 1,-11: PRINT AT 5+x,9; 
FLASH 1;"NOMBRE REPETIDO" 

630 GO TO 560 
640 NEXT w 

650 PRINT AT 5+x,9;h4(x) 

660 NEXT x 
670 PAUSE 100 
600 CLS 

690 PRINT AT 3,1;"NOMBRES DE LA 
S MUJERES" 

700 FOR x=l TO ffl 

710 PRINT AT 5+x,5;x;" * ?" 

720 INPUT LINE w* 

730 GO SUB 3400 

740 LET ffl$(x)=wt 

750 IF x* 1 THEN GO TO 810 

760 FOR w=l TO x~l 

770 IF mí(wK>mt(x) THEN GO TO 

BOO 

780 BEEP 1,-11: PRINT AT 5+x,9; 
FLASH 1;"NOMBRE REPETIDO" 

790 GO TO 720 
BOO NEXT w 

810 PRINT AT 5+x,9;m4(x> 

820 NEXT x 
830 PAUSE 100 

840 PRINT AT 3,1;"CARACTERISTIC 
AS A VALORAR" 

B50 FOR x*l TO c 

860 PRINT AT 4+x,5-<x>9);x;". 

; ci (x) 

'870 NEXT x 

880 PRINT AT 21,1;"ENTRA -1- PA 
RA CONTINUAR" 

890 INPUT LINE wi 







mgroMOs 


900 CLS 

910 PRINT AT O,O;"PARA CADA CAR 
ACTERISTICA INDICAR" 

920 PRINT AT 4; M 1 = INTERES N 
ULO"; AT 8,4;"2 = POCO INTERES"sA 
T 10,4:"3 = NORMAL"¡AT 12,4;"4 * 
BASTANTE INTERES"iAT 14,4;"5 * 
MUCHO INTERES" 

930 PRINT AT 21,lí"ENTRA -1- PA 
RA CONTINUAR" 

940 INPUT LINE w* 

950 CLS 

960 DIM b <h,c) 

970 FQR x — 1 TQ h 
980 PRINT AT 3.3;"PREFERENCIAS 
DE “ ¡ h* <X ) 

990 FOR y=l TD c 

1000 PRINT AT 4+y,5;c$<y);" = ?" 

1010 BO SUB 3270 

1020 LET b (x * y) =VAL w* 

1030 PRINT AT 4+y, 22;b(x,y> 

1040 NEXT y 


1050 CLS 
1060 NEXT x 
1070 CLS 
10B0 DIM v(m,c) 

1090 FOR x — 1 TO m 

1100 PRINT AT 3,3;"PREFERENCIAS 

DE ";m$<x) 

1110 FOR y=l TO c 

1120 PRINT AT 4+y,5;c$<y);" — ?" 
1130 GO SUB 3270 
1140 LET v(x P y)“VAL wí 
1150 PRINT AT 4+y,22; v <x , y) 

1160 PRINT AT 4+y,22;v (x, y) 

1170 NEXT y 

neo cls 

1190 NEXT x 
1200 DIM d Ch,m> 

1210 DIM i (m,h) 

1220 DIM t(h,m) 

1230 LET te=343.56 

1240 FOR *-l TO h 

1250 PRINT AT 2,3;x;V l ;h 
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1260 FDR y=l TQ m 

1270 PRINT AT 2,12;y;"/";m 

1280 FOR 2=1 TQ c 

1290 LET d<x,y)=d<x,y> + <<b (x,2)“ 
v<y,z)> * <1+0.2*c(z)))*((b(K,z)-v 
(y, 2 ))*(1+0.2*c(z))) 

1300 NEXT z 

1310 LET d <x,y)=INT d(x,y)+y/10 
1320 LET i(y,x)=INT d(x,y)+x/10 
1330 LET t<x,y)=INT <<<tc-d(x,y) 

)/te)*100) 

1340 NEXT y 
1350 NEXT x 
1360 DIM p(m*h) 

1370 LET k = 1 

1380 FOR x = l TO h 

1390 FOR y=l TO m 

1400 LET p(k)=d(x„y)+x/l00 

1410 LET k = k + i 

1420 NEXT y 

1430 NEXT x 

1440 CLS 

1450 FOR z=l TO h 

1460 FOR x = 1 TO m-1 

1470 FOR y=x+l TD m 

14B0 IF d(í,x)<d(i,y) THEN 60 T 

O 1520 

1490 LET e=d(z,x) 

1500 LET d <z ,x ) “d <z , y) 

1510 LET d <z , y) =e 

1520 NEXT y 

1530 NEXT x 

1540 NEXT 2 

1550 FOR 2=1 TO m 

1560 FOR x*l TO h-1 

1570 FOR y“x+1 TO h 

1580 IF i<z,K)<i(*,y) THEN 60 T 

O 1620 

1590 LET e=i<z,x> 

1600 LET 1(z,x)=í<z,y) 

1610 LET i(z,y)=e 
1620 NEXT y 
1630 NEXT x 
1640 NEXT z 
1650 CLS 

1660 PRINT AT 3, 1 ;"ESCOGER ENTRE 
! " 

1670 PRINT AT 6,4?"1. PREFERENCI 
AS DE CADA UNO";AT 8,4;"2. VER L 
AS DE UN HOMBRE”;AT 10,4;"3. VER 
LAS DE UNA MUJER" 

1680 PRINT AT 12,4;"4. SELECCION 
DE PAREJAS" 


1690 PRINT AT 14,4;"5. CLASIFICA 
CION DE HOMBRES";AT 16,4;"6. CLA 
SIFICACION DE MUJERES" 

1700 INPUT LINE w$ 

1710 IF w*<" 1" OR w*> ,, 6 11 THEN G 

Q TQ 1700 

1720 LET r=VAL w* 

1730 CLS 

1740 IF r-1 THEN 60 TO 1800 

1750 IF r~2 THEN GO TO 1870 

1760 IF r=3 THEN GO TO 1940 

1770 IF r=4 THEN 60 TO 2010 

1780 IF r=5 THEN 60 TO 2030 

1790 GQ TO 2040 

1800 FOR x-1 TO h 

1810 GO SUB 2050 

1820 NEXT x 

1830 FOR x=l TQ m 

1840 60 SUB 2130 

1850 NEXT x 

1860 60 TO 2210 

1870 CLS 

1880 PRINT AT 3,3;"NUMERO DEL HO 
MBRE = ?" 

1890 INPUT LINE wí 
1900 IF w*<"l” OR wí>STR* h THEN 
60 TO 1B90 
1910 LET x=VAL w$ 

1920 60 SUB 2050 
1930 60 TQ 1660 
1940 CLS 

1950 PRINT AT 3,3;"NUMERO DE LA 

MUJER =7" 

1960 INPUT LINE w$ 

1970 IF w*<"1“ OR w*>STR$ m THEN 
GO TO 1960 
1980 LET x=VAL w$ 

1990 60 SUB 2130 
2000 60 TG 1660 
2010 CLS 
2020 60 TO 2210 
2030 60 TO 2670 
2040 GO TO 2910 
2050 CLS 

2060 PRINT AT 3,1;"PARA ";h*<x); 
AT 5,1,*"LAS PREFERIDAS SON s " 
2070 FOR y=l TO m 
2080 PRINT AT 6+y,3;y;", ";m$í(d 

(x, y) -INT d(x,y) ) tlOjTAB 19;tí¡í 
,(d<x,y)-INT d(x,y))*10);TAB 22; 

2090 NEXT y 
2100 GQ SUB 3170 
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2110 CLS 
2120 RETURN 
2130 CLS 

2140 PRINT AT 3,1; "PARA l, }m*(x) S 
AT 5,1?"LOS PREFERIDOS SON s" 
2150 FÜR y=l TO h 
2160 PRINT AT 6+y,3jyj" . ";h$í< 
i<x,yí—INT i <x , y) )#10);TAB 19jt( 
Ci (x,y> —INT i (x,y>)* 10,x);TAB 22 

. n » 

2170 NEXT y 
2180 GO SUB 3170 
2190 CLS 
2200 RETURN 

2210 PRINT AT 3,5}"PAREJAS SELEC 
CIONADAS" 

2220 FOR x~1 TO m*h-l 

2230 PRINT AT 10,12;x;"/“;mth-1 

2240 FOR y=x + l TD m*h 

2250 IF p(x)<p(y) THEN SO TO 22 

90 

2260 LET e=p(x> 

2270 LET p < x ) =p (y > 

2280 LET p<y>=e 
2290 NEXT y 
2300 NEXT x 
2310 DIM a (h) 

2320 PRINT AT 4,5;" 

14 

2330 DIM g (ni) 

2340 LET s=m 

2350 IF h<m THEN LET s=h 
2360 LET y=l 
2370 FOR k=l TO s 
2380 FOR x=*y TD m*h 
2390 PRINT AT 14,12jx ; 

2400 IF k=*l THEN SO TO 2470 

2410 FOR 1-1 TO k-1 

2420 IF INT (10*<p(x)-INT p<x>>> 

«gil) THEN NEXT x 

2430 NEXT 1 

2440 FOR s=l TO k-1 

2450 IF INT (O* 0001+100*p (x ) -1.0# 

INT U0*p <x ) > >=a (z> THEN NEXT x 

2460 NEXT z 

2470 LET g(k)=INT (10*(p<x)-IMT 
p íx> ) ) 

2480 LET a(k)=INT (O.0001+(ÍOO*p 
'íx ) ) —10* INT (10*p(x))> 

2490 LET y=x+1 
2500 NEXT k 
2510 CLS 

2520 PRINT AT 3, 5} "PAREJAS SEILEC 


CIONADAS";AT 4,5;" 

II 

2530 FOR k=l TQ s 
2540 PRINT AT 5+2*k,1;h*(a<k>);m 
t(g(k) ) ; t (a (k) ,g(k) ) ; TAB 28; "7." 
2550 NEXT k 

2560 IF h=rti THEN 60 TO 2660 
2570 PRINT AT 7+2*k,0;"QUEDAN SI 
N APAREJAR!" 

2580 IF h<m THEN SO TG 2630 
2590 FOR x=s+l TO h 
2600 PRINT AT 8+2*k+x-s,21;h*(IN 
T (O.0001+(100*p(x>)-10*ÍNT (10* 
p(x ) ) )) 

2610 NEXT x 

2620 GO TO 2660 

2630 FOR x=s+l TO m 

2640 PRINT AT S+2*k+x-s,21;m*(IN 

T (ÍO* <p(x)-INT p (x)))> 

2650 NEXT x 
2660 GO SUB 3170 
2670 CLS 
2680 DIM síh) 

2690 PRINT AT 1,2;"CLASIFICACION 
DE LOS HOMBRES"; AT 3,4;"POR SU 
ACEPTACION ENTRE";AT 5,10*"LAS M 
UJERES" 

2700 FOR x = 1 TO h 

271Ó PRINT AT 10,14;x; "V";h 

2720 FOR y=l TO m 

2730 LET s(x)**(x)+t(x,y> 

2740 NEXT y 

2750 LET s(x)=INT s(x)+x/10 

2760 NEXT x 

2770 FOR x — 1 TO h-1 

2780 FOR y=x+l TD h 

2790 IF s(x)>s(y) THEN GO TO 28 

30. 

2800 LET e=s(x) 

2810 LET s(x)=s(y> 

2820 LET s(y)=e 
2830 NEXT y 
2840 NEXT x 
2850 DIM f(h> 

2860 FOR x-1 TO h 
2870 LET fCx)=10*ífi(x)-INT s(x>> 
2880 PRINT AT 9+x,5;x}TAB 7;h*(í 
(x) >; INT (s(x)/m); 

2890 NEXT x 
2900 GO SUB 3170 
2910 CLS 
2920 DIM wím) 

2930 PRINT AT 1,2;"CLASIFICACION 







Programas 


DE LAS MUJERES"; AT 3,4;"POR SU 
ACEPTACION ENTRE";AT 5,10;"LOS H 
DMBRES" 

2940 FOR x = l TO m 

2950 PRINT AT 10,14;x;m 

2960 FOR y==l TO h 

2970 LET w (x > =w (x >+t (y, x ) 

2980 NEXT y 

2990 LET w(x>-INT w(x)+x/10 

3000 NEXT x 

3010 FOR x—1 TO m-1 

3020 FOR y=x + l TO n 

3030 IF w í x > >w <y) THEN GO TO 30 

70 

3040 LET e=w(x) 

3050 LET w(x>=w(y) 

3060 LET wíy)=e 
3070 NEXT y 
3080 NEXT x 
3090 DIM jím) 

3100 FOR x«l TO m 
3110 LET j<x)«10*(w(x)-INT w(x)> 
3120 PRINT AT 9+x,5;x;TAB 7;m*<j 
(x > > ; INT (w(x> /h) ; "7." 

3130 NEXT x 
3140 LET 11=1 
3150 GO SUB 3170 
3160 GO TO 3450 

3170 PRINT AT 20,O;"ENTRA-1-PARA 
CONTINUAR";AT 21,5;"-2-PARA VQL 
VER A ESCOGER" 

3180 IF 11=1 THEN PRINT AT 20,1 

3;"ACABAR 

3190 LET 11=0 

3200 INPUT LINE w* 


3210 IF w*< ,, l n OR wS>"2" THEN G 
O TO 3200 

3220 LET mm=VAL w$ 

3230 CLS 

3240 IF mm*2 THEN GO TO 1660 
3250 RETURN 

3260 REM Entrada de valor» 1 a 5 
3270 INPUT LINE w* 

3280 IF THEN GO TO 3450 

3290 IF LEN W *>1 THEN BEEP 1,-1 
li GO TO 3270 

3300 IF w$< u l" OR w$>"5" THEN B 
EEP 1,-11; GO TO 3270 
3310 RETURN 

3320 REM Comprovacio del caracte 
r numeric d’un numero. 

3330 INPUT LINE 

3340 IF THEN GO TO 3450 

3350 FOR w=1 TO LEN w$ 

3360 IF w*(w)< ,, 0" OR w*(w)>"9" T 
HEN BEEP 1,-11s 60 TO 3330 
3370 NEXT w 
3380 RETURN 

3390 REM Rutina de transformado 
a mayúsculas 
3400 FOR w=l TO LEN 
3410 IF wí íw)<"a" OR w*(w)>"z" T 
HEN GO TO 3430 

3420 LET w*(w)=CHR$ ((CODE w*(w) 

) ~32) 

3430 NEXT w , 

3440 RETURN 

3450 PRINT AT 10,13;"ADIOS" 

3460 STOP 
9900 GO TO 1 

-j 
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¿Se acuerda de aquellas primeras máquinas que irrumpieron sú¬ 
bitamente en todas las cafeterías, y con las que se realizaban autén¬ 
ticos torneos de tenis? Apenas se podría adivinar que era sólo el co¬ 
mienzo y que hoy sólo tiene que conectar su Spectrum para revivir 
aquellos tiempos. Este programa es para dos jugadores, y preste 
atención a las instrucciones, porque nada se indica por pantalla: la 
raqueta azul se maneja con la “a" y la “z” y la raqueta amarilla 
mediante el "I” y “symbol shift”. 

Autor: Jordi Masana I6K 



ABCDEFGHIJKLMNOPQRSTU 

♦BCDEFGHIJKLMNQPQRSTU 

30 GO SUB 1000 
4.0 BORDEA 1: PAPER 4: CLS 
50 LET a-5: LET b=2 
55 LET C=5: LET d *28 
60 LET Vil: LET h«1 
65 LET p1»-1: LET P2*0 
70 FOR i *0 TO 31 
30 PRINT INK 2JAT l,il" ‘ 
1, i i RT 0 , i i INK l; 


1 ; AT 2 
NEXT 


INK 
; AT 


6; PAPER 
21,16; '■© 


LET p 


90 PRINT AT 21,1; 

2; BRIGHT l;"TENIS 
Ü.HASflNA 1934" 

100 LET S■INT ÍRND*14)+3: 
l=p1+1: LET f *4: GO TO 150 
110 LET p2*P2+l: LET i aINT CRND 
*14)+3 

120 LET f *26 

150 PRINT INK £; PAPER 6j BRIGH 
T i ; at i,a; a*;" ";pl;AT 1,20;yt; 

" ";p2 

160 IF p2*ll THEN PRINT 
J INK a; BRIGHT 1; FLASH 
R 2;"GANADOR "¡y*: GO TO 
170 IF Pl*ll THEN PRINT 
; INK 6; FLASH Ij BRIGHT 
R 2;"GANADOR "i a*; GO Tü 
200 IF C >3 AND í1N 49150 
IN 49150=169) 

RINT AT C+2,d;" 

210 IF C <19 AND 


AT 8,11 
l; PAPE 
2900 
AT 8,11 
1, PAPE 
2000 
<253 OR 
THEN LET C*C-2: P 
; AT c +3 , d ' " " 
i IN 


32766=253 O 

R IN 32766*189) THEN LET C*C+2: 
PRINT AT C-2 ,d i " " ; AT " 

220 IF a>3 AND IN 65022*254 THE 
N LET a*a-2: PRINT AT a+3,b;“ 

AT a+2 , b; " " 

230 IF «<19 AND IN 65278*253 TH 
EN LET a *a +2: PRINT AT *-2,b;" " 

1 hT 4^3 b ’ 11 fl 

* 240 PRÍN+ AT C,d; INK 6; BRIGHT 
1;;AT c+i,d;"É";AT c-l,d;"l" 
250 PRINT AT a , bj. BRIGHT í; INK 
i; : AT a+1, b; "Ér; AT a-l,b;"l’' 
260 LET S*f+V: LET f•t +h 
265 PRINT AT S-v , f-h; " " 


if© 

. 1,25 
260 IF 
. 1,25 

290 IF 


, AT % , ( 

W*-V: BEEP 


IF S *20 THEN LET 

s=2 THEN LET V*-v: BEEP 
<«*£ AND b ■ f) OR (C«I AN 


0 d=H THEN LET h*-h: BEEP .1,15 
300 IF (a+l*s AND b=f) OR U+l* 
S AND d=f) THEN LET hs»-h-l: BEEP 
.1 15 

310 IF (a-l*S AND b*n QR U-1* 
S RND'd-F) THEN LET h»-h-l: BEEP 
1 15 

320 IF f >28 THEN BEEP .1,1: GO 
TO 90 

330 IF f <2 THEN BEEP .1,1: GO T 
0 110 

340 IF h=-3 THEN LET h*h+l 
350 IF h*0 THEN LET h*h-l 
370 IF h *3 THEN LET h*h-l 
400 GO TO 190 
1000 FOR k*0 TO 7 

1010 READ x: POKE USR "i"+k,X: N 
EXT k 

1020 DATA 60,126,256,255,255,255 
,126,60 

1100 INPUT "nombre del jugador a 

IUL? ";a *: BEEP 1,12 

1200 INPUT "nombre del jugador a 

«arillo? ";y$: BEEP 1,12 

1500 RETURN 

2000 PRINT RT 14,2;"OTRO PARTIDI 

TO? is/n)" 

2010 IF INKEY $*"a" THEN GO SUB 1 
100: GO TO 40 

2020 IF INKEY$*"n“ THEN STOP 
2030 GO TO 2000 



* 





















Arturo: «Soy un 
fanático de los 
ordenadores > 
adoro la 
programación». 


Puede que usted sea de los que 
utiliza las revistas para leer y tirar. 
Sí por el contrario le gusta colec¬ 
cionarlas, lo más adecuado es 
mantener un pequeño fichero con 
los temas que le interesan. El joven 
autor de este programa vio en el 
Spectrum una solución a la orde¬ 
nación de las revistas de ciencias, 
fácilmente ampliadle a cualquier 
otra publicación. 

El programa sirve para archivar 


los artículos referentes a un tema, 
y de cada artículo se introduce el 
nombre de la revista en la que apa¬ 
rece y la fecha de la misma. 

Para crear un tema con sus res¬ 
pectivos datos, se usará la opción 
A. Al hacerlo se le preguntará por 
el nombre del tema y se abrirá un 
canal para el microdrive en el buf- 
fér 4 con el nombre del artículo, el 
de la revista y la fecha de ésta. 


La opción B es el listado del ar¬ 
chivo por pantalla, mientras que la 
opción C utiliza la impresora para 
mostrar los datos conservando el 
formato de presentación en panta¬ 
lla. 

Las opciones D y E permiten la 
necesaria actualización de la infor¬ 
mación. 

Autor: Arturo Garda I6K 


_ „ 1.REM Arturo Qarcia Arta. SEP 
T-1984 

1® 00 SUB 2000 

13 PRINT AT l,l;"Eat« ti un pr 
carama para o#atmacanar «n 

MlcfiOORiye :"¿AT 4,l¿"i)-ia* r«v 
i a tai, ;AT 3,1, "3) - la fechl";AT 
6 , 1; ‘A) -y « i nombra dti articulo 
" í AT loa Unii maa inttr 

«santal Sida sua rtviataa" 

17 PRINT^AT IB, 1; "Pont una tt 

c 


A? "¡Ti: IP LEN Ti >20 THEN PRINT 
AT 10,0j FLASH l;"Nombra muy li 
roo“¿AT fei,0;"Pula* una ticii" 
PAUSE 0; CL8 : 00 TO 130 


138 LET dl-tt 
137 IF LEN ti 
C TO 10) 

140 PRXMT 
LOS DAT 


>10 THEN LET lt»t« 


XA 


UAS A INTR 
~)8 


oouc 

w 


la": PAUSE 0 

38 Pr|n+ St |UJ a¡g®jj 1: " A" ¿ 

33 PRINT RT 8,Si"CRIAR TEMA"; 
T 8 , Si "LISTAR TEHR" J AT 11,6;"IM 

_ *$-££ U | E ® ! ‘■•■INKEYi; FQ 

™ ,M ¡f 3 |2¡ 

Ú ?8 lis. 


' §’• 

6 

7 


I? m 

: f THlN 

¡F THEN 

P IM"E" THEN 


?3 IF ll 

0 TO 4< 

íll INPUT S ^N?HéRE DEL NUEUO TEH 


8 S 0AT0S ft SÍ0UN TE LOS PRÍ „ 
UANDO ACABES PON UN PUNI 
COMO NOMBRE DEL ARTICULO.": PRXN 
f AT 21,0;"Pulat una tacta": PAU 

S 14? S 

íll in?ut*"ÍeccÍÍn 1 ! NOMBRE DEL 
ARTICULO 7 " i PS: IF LEN P*>55 

THEN 90 TO 100 

1S3 IP CODG PI-4* THEN 00 TO 30 

^170 INPUT " REUX3TA EN LA QUE 
APARECE EL TEMA : "JH| 

Í95 J INPUT "TODO CÓrSíCTO (S/N)? 
"¿Si: IF Ci« n N" THEN CLS : 00 T 
0 loa 

107 XF Ci< > ,, S" THEN 00 TO 103 
200 PRINT #4;PÍ'H*'FÍ 
























[il 


S! 

3 

31 


¡0 


GQ TO 


.60 


CL06E *4 

INPUT 


"NOMB 
LEN 
c 


R Ü!S§ L |¡Bl¿& S Úl¡,á!+gi F n & 

or r t c t* : PAUSE 300: GO TO 410 

420 Íp T L?S*!¡>10 TMEN LET XI-XI 

( TO 10) 

430 OPEN B4¿"i "¡lili 

VK9 P íÍ£""& D k« *«8 u E fl p gS5íSÍ 

b%gSMg?í° s PRÍS?1í u iS: # ? iyi * TR 

u 25.'IÉ+\;*r2if hA!. 

436 GO SUB 4f00 

J2i P^’iJSifsrs»! 

MÉN PAUSE 0: GO TO BÍ9 
480 INPUT 84;HÍ;P| 

PRINT "P| 
f SCREEN* (81, 


REUL„ 

’~Pu i*t 


Pi»46 


4 
4 

QÜ TÚ 8 

490 PRI 
500 PRINT 
510 PRINT 


0) O 


THEN 


" t 

■* ( 

RT 


"i NjJ « 

";P¡j " ) " 
n,0; OUBR 


1, 


CL 


TO 30 
: GO 


SUB 3000 


MIRE DEL TEMR A IM 
IP LÍN I*>30 THÍg 


cor rt c t»" 


nrÑTVTT - 

550 CLOSE «4 
560 PAUSE 0: 

370 50 TO 439 
630 INPUT "NO 
PRIMIR T "; II: r 
PRINT "Longitud no 
AUSE 300: GO TO 410 
635 LET 01*11 
630 IP LEN Xt >10 TMEN LET 
( TO 10) 

640 OPEN 84;"#"¡1¡II 

650 LPRINT 'TEMA ; ♦"jOl;"#" 

660 LPRINT 

670 LPRINT ... 




8 ÍE5Ü |íi p 8¿ ?o S8 BB p »-“ 

| LPRINT ’'Í-^p! 

0 LPRINT "# "¡ MÍ; 11 t "j 
710 LPRINT "( "j P|;" >" 

730 LPRINT 


in 

: PAUS_ 
836 LET 
830 
< TO 
640 
650 


NT "LONl 
200: Gl 


TEMA A_P^ 


tU 0 .» 

INPUT "N_ w _ _ 

“R 7 IP LEN II >30 

no corr«ct« 

_ . . 810 

__ OI.Ií 
IP LEN X|>10 TMEN LET I|*I| 
10 ) 

OPEN 84J "fA"; 1) II 
OPEN 85;"8”;l;"ampliación" 
Pl: IP COOE P|*46 


m 882 

til í‘ Ll 

iw. 



860 INPUT 84/ 

TMEN GO TO 895 
870 INPUT 84,* M|;P 

¡11 Fo 1 ®, ¡?¿ P, ' M 


¡ 


P* 


89 


89? ifeSife "m"jl¡X|¿ PRINT "RHQR 
A ÍNTRQDUCIRR LOS DATOS SESu 
N SE LOS PREGUNTE."; RT 81,0; PUL 

s« una mu": pause 


84 


■ÍN 


’Í«!¿ CLS 

iCljLO^T ”;P* 

•«la® "Pisar? w 


NPUT "NOMBRE t 
: IP CODE P|«46 TMEN 


DEL RRT 


,tV 




^ ' 11 ftR^ICUl 
" ¿H» ' "PECMA ’i "¿Pi: 'INPUT "TODO 
CORRECTO (B/N) ? "jTÍ: IP T|*"N" 
TM?N GO TO 900 

*" IP Ti< >"5" TMEN 00 TO 940 
PRINT 85;PI'Hl'P| 

¡i aiiSf qt».» 

971 GLOSE 86 

972 OPEN 88;"m";1;"ampliación 1 

973 OPEN 84/"W";lili 

974 INPUT 85;PI: IP COOE P|*4I 
TMEN GO SUB 976: GO TO 30 

975 GO TO 981 

976 PRINT 84; 

97? GLOSE 85 
976 CL06E 84 

!¡i i¡?síN"*" ; i i "** pu, ' ion " 

m asss iwiu 

990 GO TÚ 974 
1000 CLS^:.INPyT "SP 

IP SI-’ N" 

"CUENTE SOLO LOS NOMBRES DE TEMA 

S": PRINT . PUlft Un» t«Cl» ff : 

PAUSE 0: GO TO 1006 

1903 IP S*<>"5" TMEN 50 TO 1000 

1905 CLS : INPUT "NOMBRE DEL TEM 

W8M5 1 2 ¿6 J,; lr LBN ~~ 

1010 PRINT "ESTA SEGURO DE Q 
UIERE BORRAR "jUli* ? (S/N)" 

1020 JNPUT L|: IP LI^'S" TME 


PUT "SABE EL NOMBRE 
A BORRAR 7 ÍS/N) S|: 
TMEN CAT 1: PRINT 


J| >30 

QUE Q 


1930 IP _ 
1040 GO TO 30 
IP LEN 


MEN GO 
< >"N" TMEN GO TO 1010 
Jl>10 TMEN LET Jl-Jt 

1; Jl 


1050 

(1 TO 10) 

1960 ERASE "■ 

1070 GO TO 30 

3090 LET »|« n 8888888888888888888 
8888888888888": PRINT AT 0,0;sI; 
AT 21,0/*» 

3010 POR 7*1 TO 30: PRINT AT f,0 
;”8"j AT f,31;"8": NEXT f 
3030 RETURN 

Í¡1¡ Í8 T 6UB 6 4000 

3030 PRINT AT 3,0;Pi 

3030 PRINT RT 4,0;"# ,, ¡MÍ;" * "J 

3040 PRINT "( "J P|;" ) 1 

3080 PRINT AT 4,0; OUER lj_ 

swr RITOftÑ - 

4000 PRINT "TEMA : ♦"jOl;"#" 

4010 PRINT AT 3,0;El 
4030 RETURN 




















W&pOlMíXs 

TCWrl CksJj 

Si es usted un intrépido aventurero de los que 
desconoce el significado de la palabra "miedo”, 
acaba de encontrar un programa hecho a su me¬ 
dida. El objetivo es derribar al contrario desen¬ 
fundando antes. ¿Que cuál es el motivo? Eso no 
importa demasiado: cualquier motivo es bueno. 
¿Cuál es su contrincante? Eso sí importa y mu¬ 
cho, porque si elige al temido Spectrum ya pue¬ 
de ir cavando su sepultura. Le aconsejamos em¬ 
piece con sus amigos, pero no le daremos la más 
mínima indicación de cómo usar el programa: él 
solito se lo cuenta todo. No falta la música del 
legendario oeste (no se pierda la sintonía de la 
rutina que comienza en la línea 27). ¡Que la 
suerte le acompañe, forastero! 

Debido a la complejidad de los caracteres grá¬ 
ficos definidos, el listado 2 es una copia de las lí¬ 
neas 150 a 480 previo a la definición, para 
mayor sencillez en el segmento de los caracteres 
gráficos empleados. 

Autor: Antonio Garrido I6K 


LISTADO I 


LS 


1 

3 


se SUS 
BORDER 


600 

0: PAPER 


0: INK 7: 


i-l 

10 ; 

rmr 


'Far-wes 


5 LET q«0: LET 3p- 

6 CLS : PRINT TRB í 

t"; RT 0j10; OUER ij". 

10 LET p»0: PRINT rrnr feienven 
ido a i Far-west donde launie* i* 
y la impon* a i mas rapi-do."","; 

PRINT RT 21, 0 ;"Instrucción*» (S 
/N)?" : 00 SUS 27: LET a**p|; IF 

a * < > "n " AND a*o"N" RND af o"i" 
AND MO M 5" THEN PRINT RT 1,0;: 
00 TO 10 

11 LET p *0: PRINT RT 21,0; "U*r 
£ ion d* dos jugador*»?' 1 i 00 SUS 
27: LET X«-p«: IF 

*n" 


X**p 

< >"8" RND X É < > 
EN 00 TO 11 

12 IF k**"rv" 
T X É* " 1 

13 IF a**"n" 
TO 60 

14. PRINT RT 


K|< > " » " RND 
RND K $ O "N" 


X« 

TH 


OR 

OR 


X*« n N" 

»**"N" 


THEN LE 
TMEN 00 


* l 


Creexsviiie, t* 
o «n un* peí** 
ar a la dulce 
ve (La chica d* l 
que es peor, al 
as de vértelas con 
mas temido de 

15 PRINT RT 


9, 0 ;" Pasando por 


hasvisto tnvuelt 


TER' si esta 
0 SUS 27 

16 IF X*-"* 
S : PRINT TRB 
10; QUER l; 


intentar saiv 
Sweet Lucy Lo 
»a ion) . V lo 
amanecer h«br 
el pistolero 
todoslos tiempos.” 
21,0;"Presione 'EN 


l i S (< 


LET p«0: 


'Jugador uno 


OR XM”S" THEN CL 
10;"Far-uest";RT o 
PRINT ' 
- n ¡ Sü TO 35 


17 IF X**"" THEN 00 TO 20 

18 00 TO 15 

20 CLS : PRINT TRB 10;"Far-W*S 

t ”; RT 0 , 10 ; OUER l; "___" 

21 PRINT . Su oponente es e 

l temible SPECTRUM." 

22 PRINT ” Es extremadamente p 
reci&o no errando ningún dispa 
ro . “ 

23 PRINT '"Tu única esperanza 
es escondertedetras de los cactu 
s y las ta- rretas para intenta 
r sorprender - le . " 

24. LET p «0: PRINT RT 21,0; "Pr* 
sione 'ENTER' si esta listo,"; O 
O SUB 27 

25 CLS : PRINT TRB 10 ;"Far-w*s 

t"; RT 0 , 10 ; OUER 1; ”_" 

26 00 TO 36 

27 LET p**" M : LET sp«iP^l: REft 
D h , i : IF i*-l.7 THEN 00 TO 32 

28 BEEP h,i: LET p-p+1: IF p>3 
THEN LET p**INKEY(: IF p*<>"" T 

HEN RETURN 

29 DATR ,07,15.6,.05,20.6,.05, 

15.5, ■05,20.6,1,15.5,.o,11,5,.5, 
13.5,1 ■ 2,8 • 5 

30 DRTR .07,15.5,,05,20.6,.05, 

15.5.. 05.20.6.1.15.5..5.11.5..5, 

13.5.1.2.18.5 

31 DRTR .07,15.5,.05,20.6,.05, 

15.5, •05,20.6,1,15.5,.5,11.5,.2, 

10.5.. 2.8.6.1.2.6.6..07.15.5..05 
,20.6,.05,15.5,.05,20.6,1,15.5,. 

5.13.5.1.6.5.5 

32 IF i*-1.7 THEN RESTORE 29: 
FOR R*1 TO 200: LET p$«INKEY*: I 

‘ "" THEN NEXT p 

IF P*í>"" THEN RETURN 


F is-í; 



t 









































V, 


regíalos 


34. GO TO 27 

36 PRINT .TU CQWbOU 8S tl d 

e la ¿«racha , ", ' ' "Pi ra ir hacia 
arr i ba.tac u* 6 ala 0 " 

37 PRINT '"Para ir hacia abajo 
«lacias da laV a la P" 

3a print '"Para disparar*lccia 
s da la 1 a sprce." 

40 LET £.0: PRINT RT 81,0;"Pra 
tiona 'ENTER' ti asta listo."i G 
0 SUB 87 

41 IF R*«"" THEN GO TO 60 

48 CLS : PRINT TRB 10;"Far-Wt* 

l";RT 0 110; OUER 1; "_" 

43 PRINT ""Jugador dos:-" 



44 PRINT Tu cowboy as ti 

da la izquier- da*",""Para ir 


I 



hacia arriba, lacias da la 1 a 
la 6" 

45 PRINT '"Para ir hacia abajo 
«laclas da lao a la T." 

46 PRINT '"Para disparar«lacla 
s da CRPs shift a la y" 

47 LET p*0: PRINT RT 81,0;"Prt 
Sioht 'ENTER' Si asta lisio.": 0 
O SUB 87 

60 CLS : PRINT TRB 10;"Ftr-WtS 
t"; RT 0,10; OUER i: " . „ 

66 LET p «0: PRINT Rf 9,£;’ T Prt* 
ion* Y para comtrtzar. " " "Pr as ion 
a n para rtcomanzar"Prasiona 
s para parar": oo sub 37 

66 00 TO tp**"s" OR pM"S")*2 + 
tp»a"y" OR P*."Y"1*4+tp*."n" OR 
p(."N")*(-60 )+65 

67 STOP 

69 IF KM"" THEN CLS : PRINT T 
RB 10 ; "Far-wast"; RT 0 , 10 ; ouer 1 

: _ RT 9 ,3i "BUENA SUERTE 

. . .Lft MSCESITRRñSI 1 : FOR Ral TO 
800: NEXT R 

70 PRPER 1: INK 7: BORDER 0: C 
LS 

30 LET S1*0: LET S8*ftl 

90 FOR q.l TO S 

100 LET T ■ 18: LET R.-8: LET G*0 
110 CLS : LET a *INT (RND*6>+8: 
LET b«4: LET C*INT (RND*6)+10: L 
ET 0.27: LET a 1*4: LET Cl-C 
180 PRINT RT 0,3;"PuníRT 0, 
83;"Puní.:" 

140 GO SUB 300: GO SUB 330 
150 IF Q.£ OR 0*4 THEN PRINT RT 
13,15; "t— \'i RT 17 ,15; "JL i";RT 1 
0 XS " 11 1 

Í60>OR J*1 TO 80 STEP 3: IF O. 
8 OR 0*4 THEN PRINT RT 1,16; INK 
6;"J";RT 8,16; INK 6,"i";flT 19. 
16; INK 6;"J";RT 80,16; INK 6;"1 
" : 00 TO 180 

170 IF RND > » 4 THEN PRINT RT J,1 
;; INK 6j"8";flT j+1,16; INK 6;" 


180 NEXT J 

185 REM Ltciura laclado. 

190 PRINT RT 0,9;S1;RT 0,89jS8: 
LET g * (IN 658760355): LET al*a 
-C8*<IN 63436 < >855) ) + 13a£IN 6451 
0 02550: LET C1*C- (8+ (IN 61438 < 
>855))+(8*(IN 57348 0855)): LET 
f* CIN 38766<>855) 

800 IF 0*8 OR 0*4 THEN PRINT RT 
T, 15;" RT T-i,15;" “;RT T 


-8,15;"_LET T.T+R: PRINT RT 

T , 15; ; RT T-1,16;"JL 1";RT T 

-8, 13; " r'V : LET R* (4* ÍR+T<¿) -2) 
+ (4+(R«2) ) - £4# (R+T>18) ) : PAUSE 1 
3 

310 IF C1 < 19 RND C 1 >0 RND ClOC 

THEN GO SUB 380 

£80 LET cl«c 

230 GO TO f *110+840 

840 IF KM"" THEN GO SUB 390 

250 IF al<19 RND al>0 RND aloa 

THEN GO SUB 890 

860 LET al*a 

870 GO TO 9«90+280 

800 GO TO 190 

890 GO SUB 300 

,,300 PRINT OUER 1;RT R,B; INK B; 
j* ¡Afir fl + l,B; "Tf'-iRT 6+8,8; IN* 
5J"(fr>";RT R*3 ,Bi INK 5j " n 
310 LET a *al: RETURN 
380 GO SUB 330 

330 PRINT OUER 1;AT C,DJ"j.";RT 
c+i,D;"^ ";RT c+6,D;%» 6+3 

,D; " H " 

340 LET C * C1: RETURN 
345 REM Disparos. 

350 BEEP .0059,26: PLOT 216,155 
-(C#8) : LET «*PÓINT Í133,155-C*8 
): LET H-POINT (140,155-0*6): DR 
RU -64,0: DRRU OUER 1; INK 6;63, 
0: PLOT OUER 1; INK 8;138,155-Ce 
*8) : IF € *0 RND H*0 THEN DRRU -9 
5,0: DRRU OUER 1; INK 8;94,0: PL 
OT OUER l; 37,155-(C*8) ; LET aMS 
CREEN* £c+8,4): GOTO £(a*<>" ") 
*160)+840 
360 GO TO 840 

370 BEEP .0059,30: PLOT INK 5;4 
7,155-(a*6) : LET *«PQINT (131,18 
5-«*g): LET H*POINT (184,155-6*8 
): DRRU 84,0: DRRU OUER 1¿ INK 6 

¿i 8 ?' 0 !, PL 9I og ? R 1 i INK 6;131,1 
|5*,¿S*31 : IF e*0 RND H.0 THEN DR 
RU 68,0: DRRU OUER 1; INK 6,-67, 
0: PLOT OUER 1;219,IBS-ía*8>: L¿ 
T aMSCREEN* Ca+8,87): GO TO ((i 
*<>" "> *180)+280 
380 GO TO 280 

390 IF R>Cl+3 OR R<Cl THEN IF R 
ND>■5 THEN LET R1«R-(2*(R>Cl+3)) 

+ £3* tñ <C1) ) 

400 IF al+2>*Cl RND ai+8<*Cl+3 
THEN LET g*l 
410 RETURN 

420 RESTORE 550: LET i2*S3+l; P 
RINT RT a , b; " "; RT a + 2, b; " "¡R 

Ta+l,b-l;"O.K.";RT a +3,b-l;"■DD 
: FOR U*1 TO 40: NEXT U 
430 IF R í13 THEN PRINT RT a + l,b 
-1;" RT a+3,b-l;" " : 

LET R.13: PRINT RT R,3;"R,I.P." 


; RT fl+2,3;"™ 
440 FOR 2*ñ+ 


... . -- . _ R-9 STEP -1 ¡ G 

O SUB 500: PRINT RT 2,3;" 

;RT 2-8,3;" ";RT Z-3,3;"R.I 

. P . " ; RT Z-1,3, "■HÉMT : NExt Z 
450 GO TO 560 

460 RESTORE 680; LET Sl.Sl+1: P 
RINT RT C, D;" ";RT c+l,d;" ";fl 

T c +3,d; " ' ;RT C+2,D;" _;RT C » 

1, D-3; "O . K. " J RT C + 3,d-3; "■■OH" 
: FOR U*1 TO 40: NEXT U 
470 IF Clll THEN PRINT RT C+1,D 


8 




/ 
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’THÉN PRINT RT 
, 15; ”F F" ; RT 1 


M LISTADO 2 

isa IF Ó¿3 ÓR _ Ó»4 
18,15; ”D"E”;RT 17. 

6 i 19 k 11 f?iSC 11 

160>OR J«1 TO 26 STEP 3: IF Qm 
2 QR Q«4 THEN PRINT RT 1,16; INK 
6; "h" ; RT a, 16; INK 6; " I"; RT 19, 
16; INK 6;"H";RT 80,16; INK 6;"í 
M : GO TO 160 

170 IF RND> *4 THEN PRINT RT U,1 
6 INK 6; *‘H" ¡ RT J+1,16; INK 6;" 

180 NEXT U 

165 REM LtCtur* 14 Ciado. 

100 PRINT RT 0,9;11j RT 0,29;*2: 
LET 9 a í IN 65278 0 255): LET il«t 
- (2* í IN 63486< >255))+ (2* íIN 6451 
00255)): LET Cl»C-<2*ílN 61438< 
>255) ) + (2# (IN 57342 0255)): LET 
f a ( IN 38766 0255) 

““ “ “ OR 0-4 THEN PRINT RT 
RT T-l, 15; " " ; RT T 

LET T-T+R: PRINT RT 
RT T-l,15;"P F";RT T 
L ET R ■ (44 (R +T < 6) - 2) 

> : PAUSE 1 


200 IF Q*2 

T,15; " 
-2,15;" 

T, 15; ■■0"E’ , J 
-2,15;"ABC" 


Cl>0 RND ClOC 


a t itw* ne v w 

+ (4+ (R*2) ) - (4# (R+T >16) 

3 

210 IF C 1 < 19 RND 
THEN GO SUS 320 
220 LET c1 * C 
230 GO TO f *110+240 
240 IF K t«"" THEN GO SUS 390 
250 IF 4 1 <19 RND 4l>0 RND 4104 
THEN GO SUS 290 
260 LET 41 *4 

90 TO 9*90+260 
90 TQ 190 
90 SUB 300 

PRINT OUER l;RT R,B; INK 5; 


270 

280 

290 

,300 


_ RT fi + 1,8;"QN”;RT R+2,B; INK 
5j"RS'\;AT R+3,Bj INK 6! “TU" 

310 LET 43*1: RETURN 
320 90 SUB 330 

330 PRINT OUER ljfiT 0,0¡ ” ■ ”¿RT 
C+l, D; "OP”; RT 0+2, D; "KJ ,ht 6+3 
O*' 11 M L 11 

J 340 LET C=C1: RETURN 
345 REM Disparos. 

350 BEEP .0059,25: PLOT 216,155 
-ÍC*8) : LET «.PÓINT (133,155-C*S 
): LET H-POINT (140,155-0*8): DR 
RU -84,0: ORRU OUER 1; INK 6;83, 



0: PLOT OUER 1; INK 6;132,155-(C 
*8) : IF e a 0 RND M30 THEN DRRU -9 
5,0: DRRU OUER 1; INK 6;94,0: PL 
OT OUER lj37,155-ÍC*S): LET 4*«S 
CREEN* (C+2,4): GOTO ((**<>" ") 
*180)+240 
360 90 TO 240 

370 BEEP ,0059,30: PLOT INK Si 4 
7,156-Í4 #8) : LET 4«POINT (131,16 
5-4*8): LET HaPOINT Í124,155-fl*8 
): DRRU 84,0: DRRU OUER 1; INK 6 
j-S3,0: PLOT OUER lj INK 6;131,1 
55-(4*8): IF 4>0 RND H«0 THEN DR 
RU 88,0: DRRU OUER lj INK 6;-87, 
0: PLOT OUER 1;219,155-(4*83: LE 
T ai»SCREEN* (4+2,27): 90 TO C(4 
*O t " i *130) +280 
380 90 TO 280 

390 IF R>01*2 OR A<C1 THEN IF R 
ND>.5 THEN LET fil3fl-(2*(fl>01+3)) 
+ (2* (R<C1) ) 

400 IF *1+2)«Cl RND 41+2 í ■ C 1+3 
THEN LET 031 
410 RETURN 

420 RESTORE 550: LET S2«S2+1: P 
RINT RT * , b; " M ;RT 4+2 , bj" "JA 
Ta +1 ,b-l;"O. K . "; RT a+3,b-l;”UD 
■ FOR U-1 TO 40: NEXT U 
430 IF R <13 THEN PRINT RT 4 + 1, b 
-1; " RT 4+3, b-l; " " ¡ 

LET R«13: PRINT RT ñ, 3 ;" R . I » P .” 
; RT A+2,3j"HDÉM M 
440 FOR Z*A+3 TO fl-9 STEP -1: 9 
O SUB 500: PRINT RT 2,3;” 


";RT 2-3,3;“R.I 
- NEXT 2 


;RT 2-2,3;“ 

.P,";RT 2-1,3; 

450 90 TO 560 
460 RESTORE 520: LET »l*Sl+l: P 
RINT RT O,D;" ”;RT C+l, di" ";R 

T c+3,d;" "j RT 6+2,Di" _i RT 6 + 

l.D-3; "O.K, "j RT C+3,d-3; "■ÉÉDDI" 
: FOR U*1 TO 40: NEXT U 
470 IF C<11 THEN PRINT RT C+1,D 
-3;" ";RT 0+3,D-3;" : 

LfeT Cali: PR INT RT C,24;"R.I.P. 
" J RT 0+2,24; "■■Eni" 

430 FOR Z*C+3 TO C-7 STEP -1: 9 
O SUB 500: PRINT RT 2,24;” 

”;RT z-a,24j” " ;RT 2 -3,24;” 

R.I.P.";HT Z-l > 24 j''■ÉÉHH" : NEXT 
















490 G¡0 Tü 560 

495 ftEM MUSiC* <¿6 R.I.P. 

500 REftO X,Y: BEEP X// 

510 RETURN 

520 DRTR 1,-1.7,1,-1.7,, 2, -1.7, 
1, — 1. "7 , .5,1.4, .5, ■ 36 , . 5, . 35 , , 6 , — 
1.7,1,-1.7,.2,-1.7,1,-1.7 
550 DRTR .2,-2,.2,1,.5,1,.2,-1, 

'i J 3 ¿‘I" 3 ¿' 

i O t i ÍÜ > 3 ¿ iDjüv 

550 NEXT q 

555 PRINT RT 0,9;Sl;flT 0,29)62 

556 FOR R«1 TO 251 NEXT R: REST 
ORE 556: FOR R=1 TO 11: RERD B,C 
: BEEP B,C: NEXT fl 

557 DRTR .2,1,.09,-60,.1,-4,.1, 
— 4, .1,-4,.4,—3,■C8,-4, .1,-60, .3, 
0 , ,09,-50,.2,1 

570 POKE 23659,1: PRINT RT 22,0 
; PRPER 0)"Pro hamos de nuevo? ": 
POKE 23659,2: LET 4*=INKEY*: IF 
a**"" THEN 00 TO 570 
580 IF fl*a ,, N" OR R**"n" THEN ST 
OP 

690 IF a*="S" OR a**"6" THEN RU 

N 


V 





rmrOMQjs 


595 00 TO 570 

599 REM Definición caracteres g 
rtfi eos. 

600 RESTORE 610: FOR a*0 TO 167 
: RERD b: POKE USR ”.*"+a,b: NEXT 

a: RESTORE : RETURN 

610 DRTR O,0,1,6,12,6,8,8,28,54 

'!!¿ a 6g+§'!é?:!¿?:!S^y:*4!;! a 

2,192,192,243,243,243,255,3,3,3, 
3,8,3,8,8,8,8,254,214 
630 DRTR 126,126,110,62,28,28,2 
8,255,8,28,62,64,62,186,254,214, 
126,126,110,62,28,28,28,255 
640 DRTR 160,224,240,2¿0,176,48 
,240,64,2,3,7,5,253,24,7,5,240,2 
40,112,112,112,112,112,203 
650 DRTR 7,15,14,14,14,14,14,29 
,87,248,216,252,240,128,224,102, 
117,15,15,15,15,15,7,3 
660 DRTR 87,240,240,240,240,240 
,224,192,245,15,27,63,15,1,7,3,5 
,7,15,15,13,12,15,5 
670 DRTR 84,192,224,160,191,24, 
224,64,15,15,14,14,14,14,14,11,2 
24,240,112,112,112,112,112,0 


BU 

ICIESE 

MADRID 

(91)7339662 

P' 

or 

BARCELONA 

«ITT 


(93)3014700 

í di 

1 




SAQUELE RENTABILIDAD AL SPECTRUM 


PROGRAMAS EN MICRQDRIVE ZX 
GESTION: 

Contabilidad (P N C.) 12,000 

Base de Datos 6,000 

Proceso de textos (español) 6.500 

Cale (hoja electrónica) J 4.000 

P. ESPECIFICOS: 

Agente de Bolsa 6.500 

Administradores de Fincas 15.000 

Mediciones y presupuestos 24.000 

También disponibles en cassette 


pts. 


PROGRAMAS EN CASSETTES 
EDUCATIVOS: 

Geografía I 1.900 

Geografía H 1.900 

Curso de Contabilidad I 2,200 

Curso de Contabilidad íl 2.200 

Geometría y Trigonometría 2,200 

Superdesarrollos 1X2 3.900 

(imprime boletos con Impresora Admate) 


pts. 


CURSILLO DE BASIC GRATIS. SI COMPRA UN MICROORDENADOR 
ORDENADORES: Spectrum, Spectrum + Spectravideo. Commodore, Oric, Katson... desde 1.239 pesetas al mes 
IMPRESORAS: Star, New Print, Seikosha desde 774 pías, ai mes. Monitores, Accesorios. 

MODEM TELEFONICO - AMPLIACIONES DE MEMORIA - LAPIZ OPTICO - CURRAH (S. DE VOZ) _ 

ENVIOS CONTRA REEMBOLSO, GIRO O TALON CONFORMADO C/ Silva, 5-4.* Tel. 242 24 71 - 28013 MADRID 


























Con este programa, 
como ya habrá adivinado, 
podrá jugar al ajedrez, 
Pero no se entusiasme de¬ 
masiado: sólo sustituye al 
tablero, ya que no podrá 
jugar contra el ordenador. 
En cualquier caso, es un 
bonito programa con una 
definición gráfica inmejo¬ 
rable. Para mover las fi¬ 
chas ha de indicar la ficha 
que desea mover, las 
coordenadas de la posi¬ 
ción en que se encuentre y 
las nuevas coordenadas a 
donde se desea lievarla. 
Después presione “e” si 
se equivocó o “m” si es 
correcto. Empiezan, 
como todos saben, las 
blancas. 


ABCDEPQHXJKLMNOPQRSTU 
tMMEFQhXJKLMNOlQtSlU 


Autor: 

Juan Hernández 
Navarro 48 K 



1 CLERR : RESTORE 
10 8ÜRDER 1; PRPER 4-¡ INK 1: C 
LS 

£0 PQKE £3609,90 
30 LET a *20: LET b-35 
40 LET C*16: LET d*£8 
50 LET ui*24: LET X-60 
LET g«90: LET X*126 
70 QO SUS 1600 
100 REM Tablero 
110 PLOT E , d 
130 DRRU 0,128: 

130 DRRU 0,-138 
140 PLOT a-l,d-l 
150 DRRU 0,130: DRRU 130,0 
160 DRRU 0,-130: DRRU -130,0 
170 FÜR n =a TO b 
180 PLOT n,d: DRRU 0,c 
190 NEXT n 
300 LET dad+32 


DRRU 123,0 
DRRU -128,0 


210 1F d&156 THEN LET d*44: GO 
TO 340 

2£0 IF d*l?2 THEN LET d*28: GO 
TO 240 

330 GO TO 170 

340 LET asa+16: LET b*b+l6 

360 IF a *148 THEN GO TO 300 

360 GO TO 170 

300 REM Coordinadas 

310 PRINT INK 0;RT 1,3;"R 8 C D 

E F G H' 1 

330 FOR C«1 TO 6 

330 PRINT INK 0;RT «#2+1,1;CHR* 
(48+C) 

340 NEXT e 

400 reh posición inicial 

410 PRINT INK 0;fiT 3 , 3; "I" j RT 3 

420 PRINT INK 0; RT 3, ilJ "ff" j RT 
3,13; A ; RT 3,16; ,, 4 M ; RT 3,17; L, I" 





























i 


430 PRINT INK 7;RT 17,3; "I"; AIT 
17,5; ; AT 17,7; "k "; RT 17,9; "®" 

4.40 PRINT INK 7 ; RT 17,11: j RT 

. lj A 13; "£";AT 17,15;"*";RT 17,17 

'450 FÚR l-3 TO 17 STEP 2 
460 PRINT INK 0;RT S,lj"I M 
470 PRINT INK 7 ;AT 15,1, 1" 

430 NEXT l 

500 REh Introducción de datos 
510 LET i-7 

520 IF i-7 THEN PRINT INK i;RT 
1,82; "BLANCAS"; RT 20,19 + INT 112- 
LEN b $)/2; b $: BEEP .5,20 
530 IF i =0 TMEN PRINT INK i ;RT 
1,81;" NEGRAS";RT 20,l94lNT (12- 

LEN C|)/2;Cf: BEEP .5,20 
540 PAUSE 20 

550 PRINT INK i;RT 4,22;"Pi«za! 

7": POKE 22685,160 

560 PRU3E 0: LET 2 (-INKEY* 

570 IF l*<> H r" RND zlo^d" RND 
Z*<>"t" AND 2*0"*" RND Z«<>"C" 
RND Z * < > '“ p " RND 2*0"*" AND z*<> 
"5" THEN GO TO 660 
580 PRINT INK i;RT 4,29;CHR* (C 
ODE 2 *447): BEEP ,1,20 
590 IF z*«"a" THEN GO SUB 900: 
QQ TO 830 

600 IF 2 *«" 3 " THEN PRINT FLASH 
l^INK i; RT 20,8; "Cambio" : GO TO 

610 PAUSE 20 

620 PRINT INK i;AT 7,22;"Pos iCi 
on";AT 8,22; "ini Cia i.: RT 10,23; 
POKE 22871,160 
630 PAUSE 0 : LET p*-lNKEY* 

640 IF P*<"a" OR P * >"h " THEN GO 
TO 630 

650 PRINT INK i;AT 10,23;CHR* C 
CODE pi-32);" 7": BEEP .1,30: PO 
KE 22373,160 

660 PAUSE 0: LET q*«INKEY* 

870 IF q*<"l" OR q*>" 8 " THEN GO 
TO 660 

680 PRINT INK i;AT 10,25;q»; BE 
EP .1,30 
690 PAUSE 20 

700 PRINT INK i;RT 13,22;"P0SÍC 
ion";AT 14,22;"finatAT 16,23; 
POKE 23063,160 
710 PAUSE 0: LET r*»lNKEY* 

720 IF r*<"a" OR r*>"h" THEN GO 
TO 710 

730 PRINT INK i;AT 16,23;CHR* ( 
CODE f $-32) ; " 7"; BEEP .1,30: PO 
KE 23065,160 

740 PAUSE 0: LET S*-INKEY* 

750 IF S*<"1" OR S * >" 8” THEN GO 
TO 740 

760 PRINT INK i;AT 16,25;S*: SE 
EP .1,30 
770 PAUSE 20 

780 PRINT INK i; AT 20,6; 11 t E - 

M ) " 

790 PAUSE 0 : LET j*«INKEY* 

800 IF j|< >"e" AND j*< >"m“ THEN 
GO TO 790 

810 IF j*s"«" THEN POKE 23176,1 
60: BEEP .3,30: GO SUB 1200: GO 
TO 520 

820 IF j*»"m" THEN POKE 23180,1 


60: BEEP .3,30: GO SUB 1000 
830 IF i=7 THEN LET 1-0: GO TO 
520 

840 IF i-0 THEN LET i*7; GO TO 
520 

900 REM Enroque 

910 PRINT INK i ;AT 7,22;"£nroqu 
e "; AT 9,20;"corto-largo"; AT 11,3 

3; " <c/l) " 

920 PAUSE 0: LET e*-INKEY*: BEE 
P .1,30 

930 IF e*< >"C" RND a* O" l" THEN 
GO TO 920 

940 IF a*a"c" RND i *7 THEN POKE 
22904,180: PRINT INK 1;RT 17,11 
¡ W'i INK 4 i RT 17,17; "Si ; INK i; 
RT 17,15; ; RT 17, lá;**'' 

950 IF e*-"C" RND i — 0 THEN POKE 
22904,160: PRINT INK 4;AT 3,11; 
“I"; INK 1; AT 3, 17; INK i; A+ 

3, 15; AT 3, Í3J {, t w 

960 IF af-"L" RND i -7 THEN POKE 
22906,160: PRINT INK l;AT 17,11 
‘■"¿AT 17,3; "i"; INK i;RT 17,7; 


. py 17 9 ' JK” 

97& IF 6*-"l ft RND i-0 THEN POKE 
22906,160: PRINT INK 4jAT 3,11; 

3,3^."|"; INK i; AT 3,7;"®" 
j HT 3i9i X 
380 GO TO 1200 
1000 REM Movimiento 
1010 LET Zl-CHR* (CODE 2*447) 
1020 LET p «2 (iCODE P*-191 
1030 LET r *2 *CQDE f*-191 
1040 LET q-UAL q**2+l 
1050 LET S-URL S**24l 
1060 IF q —3 OR q-5 THEN GO TO 10 
90 

1070 IF q-7 OR q-9 OR q-11 OR qa 

13 THEN GO TO 1110 

1080 IF q-15 OR q-17 THEN GO TO 

1130 

1090 IF PEEK 116384432*tq+1) 4 P)■ 

0 THEN GO TO 1150 

1100 IF PEEK (16384432*Cq4l) 4R> ■ 

255 THEN GQ TO 1160 

1110 IF PEEK (18432432*(q-7)4P)■ 

0 THEN GO TO 1150 

1120 IF PEEK (18432*32*(q-7) 4P)* 


5a deberán pulsar: 

1. La inicial de la pieza que 
se desea mover. 


R-REY ® 
DbDRMR ® 

T-TORRE X 
A-ALFIL £ 


C-CABALLO ® 
P-PEON 1 
E-ENROQUE 
Ü-CfiMBIÜ 


2. Las coordenadas de la posi¬ 
ción en la que se encuentra 
su pieza. 

(Presione una tecla) 



















255 THEN GO TO 1160 

1130 IF PEEK (23480+38*(q-15)+P) 

*0 THEN GO TO 1150 

1148 XF PEEK (20430+38*(q-16)+p) 

=255 THEN GO TO 1160 

1150 PRINT INK 4;AT q,pj: GO 

TO 1170 

1160 PRINT INK l; RT q,?;"! 1 ' 

1170 PRINT INK iJ AT i.rill 
1200 REM Nueva Jugada 
1210 FOR f*0 TO 21 
1220 FOR g *80 TO 31 
1230 PRINT AT " 

1840 NEXT q: NEXT f 

1250 PRINT RT 20,6;" " 

1260 RETURN 

1500 REM Piezas 

1510 FOR h «1 TO 6; RERD a* 

1520 FOR J*0 TO 7: RERD K 

1530 POKE U5R &$+j,k 

1540 NEXT j: NEXT h 

1550 DRTR " r " , W , 102 , 153,153 , y , Z , 

66 /Z 

1560 DRTR "dM9S ( 36,153, y ^ ,2,6 

1570 DRTR "t" ,y,y,Z,X,X,X ,Z ,Z 
1580 DRTR "a" ,<u ,36,y ,y ,36,w ,102, 
153 

1590 DRTR "C",W,46,187,239,78,28 
,62,127 

1600 DRTR "p",w,x,x,tal ,W,X,X,126 
1700 REM Presentación 
1710 PRINT INUER5E 1; RT 1,10;"IN 
DICRCIONES" 

1780 PRINT RT 3,1;"3* deberán pu 
tsar;" 

1730 PRINT RT 5,1;"l. La inicial 
de (a pieza que";TRB 4;"se de&e 
a mover." 


1740 PRINT RT 8,5j"R*REY »"jTRB 
18;"CsCRBRLLO 4" 

1750 PRINT RT 10,5; "D*DRMA tf";TA 
B 18, "P «PEON 1" 

1760 PRINT RT 12,5;"T«TORRE I";T 
AS 18;"E.ENRQQUE" 

1770 PRINT RT 14,5;"fl*ALFIL &";T 
R8 18;"Q-CAMBIO" 

1780 PRINT RT 16,1;"8. Las coord 
enadas de la posi- ;tab 4; "cion 





en la que se tncuentra";TflD 4;"s 
u pieza." 

1790 print RT 80,6;"(Pres i one un 
a tecla)" 

1800 PRU3E 0: CLS 
1810 PRINT RT l,l;"3. Las coorde 
nadas de la posi- r, ;TRB 4;"cion d 
onde desea trasladar";TRB 4;"su 
Pieza . " 

1820 PRINT AT 5,1;"4. Para «stab 
lectr las coo rde - ';TAB 4;"nadas 
de una pieza, pulsar";TRB 4;"en 
primer lugar la coorde-";TAB 4;" 
nada alfabética (RBGDEFGH),";TflB 
4;"y seguidamente la coordena-" 
;TAB 4;"da numérica (12345678)." 
1830 PRINT RT 12,1;"5. Presionar 
' e ' si ha come t i- r \:TAB 4j"do al 
gun error. Se repetíra";TRB 4 ; "l 
a tirada." 

1840 PRINT RT 16,1;"6. Presionar 
m' si su ti rada*';TAB 4;"es cor 
recta. Inmediatamente";TAB 4;"se 
efectuara el movimiento." 

1850 PRINT RT 20 ,6;"(Pres ion* un 
a tecla)" 

1860 PAUSE 0; CL5 

1900 rem Entrada 

1910 FOR i*7 TO 0 STEP -7 

1920 IF i*0 THEN PRINT INK iJRT 

3,3;"Negras " 

1930 IF i«7 THEN PRINT INK i;RT 
3,3;"Blancas" 

¿TaTí 1 INK iiRT 4 * 

IQjp^PRINT INK i ; RT 5,15; "I 1 X 

1960 PRINT INK i;AT 16,6;"Introd 
uzea su nombre"'';TAB 7;"(maximo 
12 letras)" 

1970 IF i«7 THEN INPUT RT 1,10; 
LINE b$; IF LEN b|>12 THEN ÓO TO 
1970 

1980 IF i=0 THEN INPUT RT 1,10; 
LINE C*: IF LEN C*>12 THEN GO TO 
1980 

1990 NEXT i 

2000 CLS : RETURN 

9999 SRUE "AJEDREZ" LINE 1 



3. Las coordenadas de la posi¬ 
ción donde desea trasladar 
su pieza. 

4. Para establecer las coorde¬ 
nadas de una pieza, pulsar 
en primer lugar la coorde¬ 
nada alfabética ÍABCDEFGH), 
y seguidamente la coordena¬ 
da numérica (12345678). 

5. Presiona i - 'e' si ha cometi¬ 
do algún error, se repetirá 
la tirada. 

6 . Presionar 'm' si su tirada , 
es correcta, inmediatamente 
se efectuara el movimiento. 

(Presione una tecla) 



Pieza 


pos icion 
inicial; 


H 7 


Posi clon 
final: 

H 5 


( E - M ) 


car los 


























SOFTWARE PROFESIONAL 
PARA ZX-SPECTRUM 


MENU 


* mim fQKtiDTji mm 


IMPRESION N. 

COD- Impresión 
INTERFflCE 

chr$ Gráficos 
MEMORIA EXTERNA 
TEXTOS Per*- 
CATALOGO 
EDITOR 

Canb.en INFO 
IMPR.con FICHA 


* mim flüCHiufl 

* mm FICHAS 
0 SFLElCIDEUW IflnWftACm 
o UEE FICHAS 5UECOOMM5 

p nnmiu fichas sELEcamms 
P LISTAR FICHAS SELECiEDINtPRS 
p listar ipnwnAcran niGimiDB iHfRcsoAfl 

P SAUL FRUW 4 AECHIVD 
« MUE SBLB ARCKIÜD 
« DE5GKHK FICHAS SELECCI1IÍIABAS 
P LBflP JtKCItlUO 
4 tlEfGC fliCKIlfll 

O CAflRIfH COLARES 


ARCHIUD:Prueba Operación -IttDU 

0 fichas SeUccimtis 


FmTMT Caps 
Den.Libre mito 


CONTEXT V.6 (*} — Procesador de textos 64 
columnas. Caracteres españoles. Cartas per¬ 
sonalizadas. ¡Sensacional! 

P.V.P. 4.000,- Ptas. 

CONTABILIDAD PERSONAL <*) - Contabi¬ 
lidad doméstica o de pequeño negocio. 64 co¬ 
lumnas, P.V.P. 2.500,- Ptas. 


SITI (*) — Sistema integrado de tratamiento 
de información. Base de datos con posibili¬ 
dad de cálculos complejos y ficheros 
auxiliares. P.V.P. 4.000.— PTAS. 
BETA BASIC.— Más de 50 nuevos coman¬ 
dos de Basic para tu Spectrum. 

P V.P. 3.000,- PTAS. 


HISOF PASCAL.— El único compilador de HISOF DEVPAC {*).— Conjunto de dos pro- 

Pascal creado para el Spectrum. gramas, ensamblador y desensamblador de 

P.V.P. 6.000,— Ptas. código máquina. Impresionantes. (GENS 3M2 

y MONS 3M2). P.V.P. 3.500,- PTAS. 

CYRUS IS CHESS- El mejor ajedrez. 

Campeón de Europa de 1981. 

* Compatible con Microdfve yfo cassette P.V.P. 3.000,- PTAS. 

V cualquier impresora e interface de 
impresora 


GRAFPAD 



PARA ZX-SPECTRUM 48 K. 


TABLETA DIGITALIZADORA PROFESIONAL 

Los mejores dibujos realizados 
cómodamente. Trabaja hasta 
3 pantallas a la vez, Incluye 
programa de funcionamiento y manual 
completo en castellano. 


TIENDA: 


C/. Córcega, 89 - Entlo. 
08029-B ARCELO NA 
Tel. (911 230 97 90 


VENTAMATIC ca 


P.V.P. 

39.000 

PTAS. 



PEDIOOS POR CORREO: 
Avda. de Rhode, 253 
ROSAS (GERONA) 

Tel. (972) 25 56 16 





JU Desearía que incluyeseis en al¬ 
gún número próximo un artículo 
sobre los discos flexibles adapta¬ 
bles a Spectrum, sus instrucciones, 
capacidades y precios. 

Juan Jiménez 
Santander 


Hl Silog comercializa la unidad de 
discos OPUS de Technology Re¬ 
search Limited. Puede trabajar con 
discos de 100, 200 y hasta 400 
Kbytes, al precio de 29.850 el in¬ 
terface y 55.200 el floppy. En las 
ferias de SONIMAG y el SIMO, 
Timex presentó su nueva unidad de 
discos, la Timex FDD System, con 


dos tipos de floppys, los TDD-1 de 
40 sectores y 250 Kbytes y los 
TDD-2 de 80 sectores y 1 Megaby- 
te. La comercialización de este 
floppy de Timex compatible con el 
QL, se realizará por lnvestrónica, 
quienes se mostraron reticentes a 
dar fechas y precios, más preocu¬ 
pados ahora en el QL. 



[El Os envío unas mejoras para el programa SP- 
EASEL, es bastante bueno pero se puede retocar, 
para guardar los datos y los gráficos al grabar el pro¬ 
grama y así poder añadir o quitar en sucesivas oca¬ 
siones nuevos datos, y para obtener el nombre de 
los meses en español en vez de en inglés. 

8160 DATA "0039223a22223a00003Ba 
0 bSaOaObSO0003b223b 22222300OOb02 
8b 02828b O0000293a2a 2 b 2 a2a00003Oa 
Ba8b0a8a800" 

8165 DATA 5862 

8170 DATA “00132a2b3a2a2b000030a 
828b0a828000028a8a890909000003a0 
a0a0a2a11000090a8a8a8a828OOOOa0a 
0a0a0a03800" 

8173 DATA 5963 

8180 DATA "00112a2a3a2b29000010a 
82828a89000001b2223120a330000bO2 
8a83020aOO000112a2a2a2a110000b 81 
01010109000" 

8105 DATA 5539 

8190 DATA "00112a2a2a2a29000028a 
8a8a8901000003329292929 330000982 
02020209800 11 
8195 DATA 3378 


Ahora tal y como se 
indica en la revista nú¬ 
mero 2 se borran ¡as lí¬ 
neas 8000 a 8195 des¬ 
pués de haber corrido 
una vez el programa y se 
crea la línea: 

9999 SAVE «SP-easel» 
UNE 10:SAVE «Easel 
c/m» CODE 60000, 
460. 

La línea 10 se cambia 
por: 10 LOAD 

CODE. 

La línea 20 pasa a ser 
55 y queda anulada. La 
línea 30 pasa a ser 53 y 
queda anulada. Y se crea 
la línea 52 PAPER 0: 
INK 7: BORDERO: 
CLS:GOTO500. 

Para grabar el progra¬ 
ma hacer GOTO 9999. 



Illlilllllll 


li lli .(.t :tK 11(1 lito il>: 



Si se borran las variables 
por dar RUN, hacer 
goto 53, 

Si antes de grabar el 
programa se hace 
CLEAR 59900 se elimi¬ 
na el riesgo de borrar el 
C/M con RUN pero si se 
borran las variables. 


La respuesta es sen¬ 
cilla: Muchas gradas 
por su colaboración. 
Permítanos obsequiarle 
cun el número 1 que no 
pudo encontrar. 




Más temas para el próximo año... 

EL SPECTRUM VA A LA ESCUELA. El programa más completo de 
representación de funciones matemáticas. 

DISEÑO ASISTIDO POR ORDENADOR. La sofisticación de los grandes 
ordenadores, al alcance de su ordenador. 

FLOPPYS PARA EL SPECTRUM. Analizamos el OPUS, ya disponible 
en España. 

PROGRAMAS: DAMAS CHINAS, para jugar inteligentemente contra el 
ordenador y un SIMULADOR DE VUELO con control automático y 
manual, entre otros. 
















































La versión española de Popular Computing 

ORDENADOR 

- POPULAR 

LA REVISTA QUE INTERESA TANTO AL AFICIONADO COMO AL PROFESIONAL 


ORDENADOR 

- POPULAR. 


Bravo Murillo, 377 
Te!. 7339662 
28020 - MADRID 


Una publicación que 
informa con amenidad 
acerca de las novedades 
en el campo de las 
computadoras personales. 

ORDENADOR POPULAR, 
la revista para el 
aficionado a la 
informática 

Ya está a la venta 


Cómprela en su kiosco habitual o solicítela a, 

























¡¡FELIZ NAVIDAD!! 


IL@ «Mam© PARA TU tPCeTMIM 




MASTER TOOL KIT 

28 utilidades diferentes 
muy útiles, pe.: 

- reloj en tiempo reo!. 

- renumeración. 

- búsqueda de cadenas, 
etc. 


ADORE» 

MANAGER 


ADRESS MANAGER 


W M* 



Muy útil como agenda pora 
direcciones, etc. iAhora con 
formato paro impresora en 
80 columnas! 



CHESS THE TURK 


Juega al ajedrez hasta en 
6 niveles diferentes. 
Programa muy 
perfeccionado, considerado 
de los mejores del 
mercado. 



MACHINE CODE TEST 
TOOL 

Diversas utilidades para 
trabajar en código 
máquina Muy valioso para 
iniciarse o ampliar 
conocimientos. 



FULL SCREEN EDITOR 
(ASSEMBLER) 

Magnífico editor completo 
para ensamblar programas. 
Gran capacidad de 
caracteres/línea. 



FINANCE MANAGER 

Fichero financiero con 
contabilidad Con opción 
para impresora en 
80 columnas. 


i IMPORTADAS EN EXCLUSIVA 
I PARA ESPAÑA 

POR SINCLAIR STORE 




Con él podrás copiar cualquier dibujo, por 
complicado que sea y pasarlo 
posteriormente a ia impresora. Muy útil 
para dibujos cartográficos 


EXCLUSIVA SINCLAIR STORE 



Unico en su género. Jaystick progromable 
con memoria que almacena vahos 
juegos a la vez, durante tiempo 
indefinido. Incluye interface con salida 
que permite conexión de otros periféricos. 





Escucha cómo habla tu Spectrum. Muy 
útil al introducirle los programas pues va 
"diciendo" los comandos y datos, y no 
hace falta mirar a lo pantalla. 

Descubre sus múltiples aplicaciones 






Crea tus propios dibujos directamente en 
la pantalla. 

Desarrolla tu Imaginación al límite. 




caracteres). 


Ven a vemos a nuestras “Super-Boutiques" informáticas. 

a /a m 


SOMOS PROFESIONALES 


BRAVO MURILLO, 2 (apare, gratuito en c/. Magallanes, 1) Tel. 446 62 31 
DIEGO DE LEON, 25 - Tel. 261 88 01 - MADRID 























































































